Private Sub Text1_Validate(Cancel As Boolean)
 
If Text1.Text = "" Then
  MsgBox "Erst Text eingeben"
   Cancel = True ' hier hattest Du False
  Text1.SetFocus
Else
  Cancel = False ' hier hattest Du True
End If
 
End Sub