Textbox löschen

Ich habe bei mir das Problem, dass wenn ich in eine Textbox eine Zahl hineinschreibe, und diese jedoch dann löschen möchte, also mit Entfernen z.B., dann taucht bei mir die Meldung auf, die überprüften soll, ob der eigebene Wert über 100 liegt.
Wie kann ich den Code so verändern, das er diese Meldung nicht in diesem Fall anzeigt?

Hier mein Code:

Private Sub TextBox1_Change()

If TextBox1 > 100 Then
MsgBox "Ihre Eingabe überschreitet 100%!", vbExclamation, "Ungültige Eingabe"
End If

End Sub