Module Module1
Sub Main()
Dim s As String = "VB"
Select Case s
Case "Python"
Console.WriteLine("Python")
Case "Java"
Console.WriteLine("Java")
Case "VB"
Console.WriteLine("VB")
Case Else
Console.WriteLine("Case Else")
End Select
End Sub
End Module
' run:
'
' VB