Option Strict On Imports System Class Tester Public Shared Sub Main( ) Dim s1 As String = "abcd" Dim s2 As String = "ABCD" Dim s3 As String = "AAAAs " s3 = s3 & "development" Console.WriteLine("s3: {0}", s3) Console.Write("The first occurrence of a ") Console.WriteLine(s3.IndexOf("a")) End Sub 'Main End Class 'Tester
s3: AAAAs development The first occurrence of a -1