Take all the spaces out from inside your quotes. Then change the name of
the routine from this:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)

To this:

Private Sub TextBox1_AfterUpdate