Есть ли способ реализовать «Msgbox» в этом коде после результата?

Question

Код ниже имеет Select case RandomNumber и имеет результат, если он правильный, и результат, если он не правильный. Я хочу добавить MsgBox (который появляется после результата) с надписью «ты выиграл» или «ты проиграл».

Я делаю таблицу рулетки как проект в Excel с использованием VBA.

Вот что я пробовал, а также много искал, но безрезультатно.

Case 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36
    Balance = Balance + PlayerBet * 2 **And Msgbox "you won"**
Case Else
    Balance = Balance - PlayerBet **And Msgbox "you lost"**

---

Sub Column_bet_1st()
    'Column bet 2:1'
     Dim PlayerBet As Range, Balance As Range, Bet_input As Range, RandomNumber As Integer

     Set PlayerBet = Range("O21")
     Set Balance = Range("L18")
     Set Bet_input = Range("O18")

     RandomNumber = Cells(1, 1)

     If Bet_input = "Column 1" Then
         Select Case RandomNumber
             Case 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36
                 Balance = Balance + PlayerBet * 2 
             Case Else
                 Balance = Balance - PlayerBet 
         End Select
    End If
End Sub

Ожидаемый результат заключается в том, что после того, как Case имеет значение true или false, на экране появится MsgBox с тем, что я хотел бы написать в нем.

Answer 1

Вы поняли это почти правильно

Sub Column_bet_1st()

'Column bet 2:1'

Dim PlayerBet As Range, Balance As Range, Bet_input As Range, RandomNumber As Integer

    Set PlayerBet = Range("O21")

    Set Balance = Range("L18")

    Set Bet_input = Range("O18")

    RandomNumber = Cells(1, 1)

    If Bet_input = "Column 1" Then
        Select Case RandomNumber
        Case 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36
            MsgBox "You won", vbOKOnly, "Win"
            Balance = Balance + PlayerBet * 2
        Case Else
            Balance = Balance - PlayerBet
            MsgBox "You lost", vbOKOnly, "Lose"
        End Select
    End If
End Sub