[sendbad100]

جرب هذا الكود

كود :

Private Sub TxtID_KeyUp(KeyCode As Integer, Shift As Integer)
If Trim(Mid(Me.TxtID.Text, 1, 1)) <> Trim(1) Then
Me.TxtID.Text = ""
End If
End Sub

ضعه في الحدث  KeyUp  

والله الموفق