Как отобразить окно сообщения, если текст не является одним из указанных?

Question

Вот мой код:

    Dim Seat As String

    Seat = txtSeat.Text.ToUpper

    If Seat = "BOX" Then
        txtPrice.Text = FormatCurrency(75)
    ElseIf Seat = "PAVILION" Then
        txtPrice.Text = FormatCurrency(30)
    ElseIf Seat = "LAWN" Then
        txtPrice.Text = FormatCurrency(21)
    End If

Мое испытание - мне нужно отобразить окно с информацией / ошибкой, когда пользователь не набирает одно из указанных слов. Поэтому, если я вместо этого наберу "cat", появится окно с сообщением "Пожалуйста, вместо этого введите одно из мест в списке :)".

Edit:

Вот отлично сработал mootinator thankyoU!

Answer 1

Else
 MessageBox.Show("Please instead type one of the seats in the list :)")

Answer 2

Я знаю, что у вас уже есть ответ, но вот ваш ответ, использующий «выберите регистр» вместо всех операторов if.

        Dim Seat As String

    Seat = txtSeat.Text.ToUpper

    Select Case Seat
        Case "BOX"
            txtPrice.Text = FormatCurrency(75)
        Case "PAVILION"
            txtPrice.Text = FormatCurrency(30)
        Case "LAWN"
            txtPrice.Text = FormatCurrency(21)
        Case Else
            MessageBox.Show("Please instead type one of the seats in the list :)")
    End Select

Answer 3

См. MessageBox.Show(), предполагая, что это контекст WinForms. Если есть Интернет, попробуйте jQuery UI dialog.