Excel VBA - Как получить следующий символ InStr?

Question

s = "qweqweqwe12345" 
mm = "qweqweqwe" 

If InStr(mm,rr) <> 0 Then 

' get the the next character or "12345" 

End if 

Мне нужно получить следующий символ после нахождения mm-строки в rr.

Answer 1

Это то, что вы пытаетесь?

Sub Sample() 
    s = "qweqweqwe12345" 
    mm = "qweqweqwe" 

    If InStr(1, s, mm) <> 0 Then 
     '~~> Find position of string1 
     pos1 = InStr(1, s, mm) 
     '~~> Find position of string2 
     pos2 = InStr(pos1 + Len(mm), s, "12345") 
     Debug.Print pos2 
    End If 
End Sub 

Answer 2

Я думаю, что вы имеете в виду что-то вроде:

Dim lFound As Long 
s = "qweqweqwe12345" 
mm = "qweqweqwe" 

lFound = InStr(s, mm) 
If lFound <> 0 Then MsgBox Mid$(s, lFound + Len(mm))