vb字符窜

可以用到VB里面的一个处理字符串的函数，如mid函数，mid（s，n1，n2），作用是将字符串S1从n1位开始的n2个字符。如mid（“ABCD”，2，2），返回的是BC。
像你这个字符串，可以用
if mid（a，2，3）="can" then
print "can"
else
msgbox "not found can",vbokonly
end if

a = "icandomyown"
If InStr(1, LCase(a), "can") > 0 Then

MsgBox (InStr(1, LCase(a), "can"))

Else

End If

返回字符串的位置。有不明白，可以空间留言。

这样就可以了！
Dim a As String
Private Sub Command1_Click()
a = "icandomyown"
If InStr(UCase(a), "CAN") <> 0 Then
MsgBox a & vbCrLf & "Find: " & "can" & vbCrLf & "Start: 第" & InStr(UCase(a), "CAN") & "字符！"
End If
End Sub