[ناجي إبراهيم]

السلام عليكم...

كود :

Dim MyStr As String, MyChar As String
Dim CharPos As Long

MyStr = "This is a string"
MyChar = "T"

CharPos = InStr(MyStr, MyChar)

if CharPos = 0 Then
    MsgBox("Character not found")
Else
    MsgBox("Character " & MyChar & " found at pos " & CStr(CharPos))
End If

الدالة InStr تبحث عن وجود String داخل String و تعيد رقم موقعه إن كان موجوداً، أو صفر إذا كان غير موجود.

أول character رقمه 1 و ليس 0 كما في لغة C.

نرجو الاستفادة و السلام.