[Ahmed_Mansoor]

أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :

PHP كود :

Dim IsOk As Boolean
Dim I As Integer
Dim CharsCount As Integer

IsOk = True

If IsNumeric(Trim$(Text1.Text)) = True Then IsOk = False

For I = 1 To Len(Trim$(Text1.Text))
    If IsNumeric(Mid$(Trim$(Text1.Text), I, 1)) = False Then
       CharsCount = CharsCount + 1
    End If
Next

If CharsCount = Len(Trim$(Text1.Text)) Or CharsCount > 1 Then IsOk = False

If IsOk = False Then
    MsgBox "يرجى إدخال حرف واحد والباقي أرقام"
    Text1.SetFocus
    Exit Sub
End If