Visual basic supprimer de la casse

visual basic supprimer de la casse

        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