Imports System
Public Module Module1
Public Sub Main()
Dim s As String = "vb.net"
Select Case s(0)
Case "v"
Select Case s(1)
Case "a"
Console.WriteLine("v - a")
Case "b"
Console.WriteLine("v - b")
Case "f"
Console.WriteLine("v - f")
End Select
End Select
End Sub
End Module
' run:
'
' v - b
'