Dim country As String
country = txtCountryInput.Text.ToUpper
Select Case country
Case Is = "FRANCE"
lblOutput.Text = "Bonjour!"
Case Is = "AMERICA"
lblOutput.Text = "Hello!"
Case Is = "JAPAN"
lblOutput.Text = "Konnichiwa!"
Case Else
lblOutput.Text = "Invalid!"
End Select