Contact: aviboots(AT)netvision.net.il
41,301 questions
53,811 answers
573 users
Module Module1 Sub Main() Dim s As String = "vb.net" Select Case s(0) Case "a" Console.WriteLine("a") Case "v" Console.WriteLine("v") Case "x" Console.WriteLine("x") End Select End Sub End Module ' run: ' ' v