je nach weiterem Verwendungszweck wird es seine Tücken haben.
Aber, schau Dir auch mal folgendes an:
Private Sub TextBox2_Change() Image1.Visible = IIf(Len(TextBox2.Value) < 0, True, False) End Sub