NumbersOnly Function

[PhearAlmighty]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
    If KeyAscii <> 9 Then
        If KeyAscii < 48 Then KeyAscii = 0
            If KeyAscii > 57 Then KeyAscii = 0
                Else: Exit Sub
End If: End If
End Sub

Allows the following:
Numbers 0-9, backspace key, tab key.

I know this is really simple but I thought...
Hey why can't I post this?