Private Sub Form_Click()
Dim str1 As String
Dim str2 As String
Dim str3 As String

str1 = "same"
str2 = "same"
str3 = "Same"
If str1 Like str2 Then
MsgBox str1 & "和" & str2 & "相同"
If str1 Like str3 Then
MsgBox str1 & "和" & str3 & "相同"
Else
MsgBox str1 & "和" & str3 & "不相同"
End If
End If
End Sub

字符串比较用like运算符
格式 string1 like string2 返回boolena值