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