If IsNull([YourTextBoxName]) or [YourTextBoxName] = "" Then
     MsgBox "Your text box is empty"
Else
     MsgBox "Your text box is not empty"
End If