Accepting only Letters,Backspace nd space as input for taxtbox

[mortezataheri]

Hi
I have a textbox in my form and want to validate data input there.

    Private Sub text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles text1.KeyPress
            If (Microsoft.VisualBasic.Asc(e.KeyChar) < 65) _
                  Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 90) _
                  And (Microsoft.VisualBasic.Asc(e.KeyChar) < 97) _
                  Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 122) Then
                'space allowed
                If (Microsoft.VisualBasic.Asc(e.KeyChar) <> 32) Then
                    e.Handled = True
                End If
            End If
            If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
                e.Handled = False
            End If
        End Sub

My textbox name is txtName ,I replaced Text1 with txtName but got error. (user-defined type not defined) which parameter should i change till i get answer
Thanx

I,m absolutely blank about the difference bet vb.NEt, vb6 ....

[4x2y]

What exactly you asking for? the code you posted is VB.NET but you ask in Office forum! Do you want to convert it to VB6 equivalent?

[mortezataheri]

1-I have a userform in Excel 2007 workbook and want a code like that to validate input data.

2-

What exactly you asking for? the code you posted is VB.NET but you ask in Office forum! Do you want to convert it to VB6 equivalent?

I used to ask Questions like this in VB6 forum till at last the Holy masters of VB6 got tired and bored, so after a long long session came to the point to kick my a** and throw me here they said : "aaa... this thread is not a VB class question so better to send it to Office Development Forum" .that.s why i wander around here all the time.

P.S. I just wanted to change the atmosphere

[4x2y]

This is what you should use for Excel 2007

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 65 To 90, 97 To 122, 32, 8
             ' Allow A-Z, a-z, Space, Back
        Case Else
            KeyAscii = 0 ' Suppress others
        End Select
End Sub

[Ecniv]

Or just validate it before saving... throw an error back to the user about data type/entry being incorrect...?