'定义一个函数
Public Function MakeAlert(ByVal strMsg As String, ByVal style As MsgBoxStyle) As String
Dim result As String = "" & vbCrLf
result &= "<script language=""VBScript"">" & vbCrLf
result &= "nouse=MsgBox(""" & strMsg & """, " & style & ", ""信息弹出"")"
result &= vbCrLf & "</script>" & vbCrLf
Return result
End Function