ç¨instrå½æ°ï¼æ¯å¦ä½ è¦æ£æ¥å符串 "ä½ å¥½avpofasodfjd;safj" ä¸æ¯ä¸æ¯æåæ¯"fas" å¯ä»¥ä½¿ç¨ä»¥ä¸ä»£ç
Sub test()
Dim a$
a = "ä½ å¥½avpofasodfjd;safj"
If InStr(a, "fas") Then
MsgBox "å
å«åæ¯'fas'"
Else
MsgBox "ä¸å
å«åæ¯'fas'"
End If
End Sub