Dim A As String = "1.192.168.100.100" MsgBox(A.[color=#0000FF]Substring[/color](A.[color=#FF0000]IndexOf("192")[/color]))