Ha[b] es nun mit IF, Trim und Empty so hinbekommen. Scheint auch so zu klappen wie ich wolle.

Supi, dann hast du etwas dazu gelernt.  So ist das auch der übliche Weg.

Grüße

PS:

  If Trim$(TextBox1.Text) <> "" Then
    Stop
    '...
  End If  

Alternativ könnte man mit der Len-Funktion z.B: auch die Länge prüfen.