Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim str As String = "VB.NET"
Select Case str
Case "Foo"
Console.WriteLine("Foo")
Case "Wii"
Console.WriteLine("Wii")
Case "VB.NET"
Console.WriteLine("VB.NET")
Case "YYI"
Console.WriteLine("YYI")
Case Else
Console.WriteLine("No match found.")
End Select
End Sub
End Class
' run:
'
' VB.NET
'