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.