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