Module Tester
Public Sub Main()
Dim sHello As String = "Hello World"
Console.WriteLine("Original string: {0}", sHello)
Console.WriteLine("Find substring (Instr(1, sHello, 'World')) : {0}", InStr(1, sHello, "Wor
ld"))
End Sub
End Module
Original string: Hello World
Find substring (Instr(1, sHello, 'World')) : 7