allow numbers only in text box

[Serge]

You can simply use KeyPress event of the textbox to restrict it to numbers:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then
        KeyAscii = 0
    End If
End Sub