User Form - Msg Box based on answer in Combo Box

Hi Everyone,

I'm new here and relatively new to VBA and I need some help with a project. I have looked far and wide for this solution without any luck so I'm hoping someone here will be able to lend a hand.

I have a User form that allows for people to report unsafe conditions at work and the scale is from 1 to 4 on a hazard ranking scale.

If the user selects 1 or 2 there's no need to prompt a Msg Box. If a user selects 3 then we would like a Msg Box to have a specific message. "You Must Report this to your Supervisor Immediately "

If the user selects 4 we would like a Msg Box to have a unique message as well ""You Must Report this to The Plant Manager Immediately "

Thank you in advance for your time and effort in helping me with this code.

Kindest Regards

Try adding this code to the userform module.

Private Sub ComboBox1_Change()
Dim strMsg As String

    Select Case ComboBox1.ListIndex
        Case 0, 1:
            ' do nothing
        Case 2:
            strMsg = "You Must Report this to your Supervisor Immediately "
        Case 3:
            strMsg = "You Must Report this to The Plant Manager Immediately "
    End Select
    
    If strMsg <> "" Then
        MsgBox strMsg, vbCritical, Replace(String(ComboBox1.ListIndex, "X"), "X", "Danger! ")
    End If

End Sub