[sendbad100]

وعليكم السلام ورحمة الله وبركاته 


جرب هذا الكود 

كود :

Private Sub Command1_Click()

If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If

End Sub

والله الموفق