Find a marker

Måske ikke så elegant, men det får være en tidlig morgen og den fungerer:

Dim Vara As Byte
Dim VARb As Byte
Dim streng As Byte
Vara = Len(Left(String:=DIT FELT, length:=(InStr(1, DIT FELT, "=", 1)))) + 1
VARb = Mid(DIT FELT, Vara, 6)
streng = VARb
If Right(String:=streng, length:=1) = 2 Then
MsgBox "det 6. ciffer er 2."
Else:
MsgBox "det 6. ciffer er ikke 2."
End If

Tack mugs.
Elegant eller inte, men huvudsaken ær ju att det fungerar.

Selv Tak - Og tak for point.