معادلة vlookup

[checles]

السلام عليكم 

محتاج تعديل حيث يقبل ارقام وحرف وليس ارقام فقط 

Private Sub id_Change()

x = WorksheetFunction.CountIf(Sheet1.Range("a:a"), Val(Me.id.Value))

Set ws = Application.WorksheetFunction

With Me

If .id.Value <> "" And x <> 0 Then

.nam = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 2, 0)

 

.adrss = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 3, 0)

.phone = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 4, 0)

.acc = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 5, 0)

Else

.nam = ""

.adrss = ""

.phone = ""

.acc = ""

End If

End With

 

End Sub