The reason it's not working is because you need to assign A back to the text of the text box. But you can do this:

Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyTab Then
        KeyAscii = 0
        Text1.Text = Text1.Text & "    "
    End If
End Sub
That should work for you.

------------------
Ryan