ممكن مساعدة مشكلة فى التكست

قد تستفيد من الكود

Private Sub Text1_Change()
If Val(Text1.Text) > 14 Then
 Text1.Text = ""
   End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
	Dim strValid As String
	strValid = "0123456789"
			If KeyAscii > 26 Then
				If InStr(strValid, Chr(KeyAscii)) = 0 Then
					KeyAscii = 0
				End If
  End If
End Sub

مشكور يا أخى

والحمد لله الكود أشتغل كويس

جزاك الله كل خير