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