MsgBox with Icon on error

[HTSCF Fareha]

Trying to get the Critical icon to show in the message box if a text is not input.

If TextBox2.Index = 0 Then
        OutPut = MsgBox("Provide reason", vbCritical, "Audit Department")
        TextBox2.SetFocus
        Exit Sub
    End If

I don't think I'm too far away, but not quite there.

Thanks!

[gmayor]

If TextBox2.Text = "" Then
   MsgBox "Provide reason", vbCritical, "Audit Department"
   TextBox2.SetFocus
   Exit Sub
End if

[HTSCF Fareha]

Thank you, this works nicely.