Thanks for your expertise. I had tried:

Sheet1.Range("A65536").End(xlUp).Offset(1, 0) = TextBox1 
        TextBox1 = vbNullString 
        TextBox1.SetFocus
and even tried setting the setfocus to boolian true but I just couldn't figure it out. Thanks again, it works great. Was only wondering why you set the keycode to 0 after the If statement...Problem solved!