Private Sub Text1_Change()Text1.MaxLength = 14End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0End Sub