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