Dim sUserName As String
    'Tackes the user name and put it in the mamry
    sUserName = Val(txtUserName)
    'If there is no text the a massage will say "Please put the user name"
    If sUserName = "" Then MsgBox "Please put the user name"

if Text1.text = "" then
  MsgBox "texttexttexttext", vbExclamation
End if