MsgBox with Icon on error

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

Code:

---

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!

Code:

---

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

---

Thank you, this works nicely.