'找出成对的<和>,如果有True,否则False
Public Function Check(strSource As String) As Boolean
Dim lngTmp As Long, strTmp As String
Dim lngLeft As Long, lngRight As Long
Check = False
strTmp = strSource
Do
lngTmp = InStr(strTmp, "<")
If lngTmp = 0 Then Exit Do
strTmp = Mid(strSource, lngTmp + 1)
lngRight = InStr(strTmp, ">")
If lngRight = 0 Then Exit Do
lngLeft = InStr(strTmp, "<")
If lngRight < lngLeft Then
Check = True
Exit Do
Else
If lngLeft = 0 Then
Check = True
Exit Do
End If
End If
Loop
End Function