[VBA] ΑΝΑΖΗΤΗΣΗ ΑΦΜ

[othonas]

καλημερα ειμαι νεος στο χωρο της VBA θα ηθελα την βοηθεια σας στο εξης θεμα : εχω μια φορμα για αναζητηση ΑΦΜ ( αποτελειται απο 9 ψηφια ) η οποια ομως δεν αναγνωριζει το 0 οταν ο ΑΦΜ ξεκιναει με μηδεν η μηδενικα. Σας γραφω την κωδικοποΙηση της αναζητησης και αν μπορειτε βοηθηστε με .Ευχαριστω οσους απαντησουν .

Private Sub CommandButton6_Click()
Dim temp As String, i As Long, tbl()
temp = Trim$(UCase(Me.TextBox10.Value))
Me.ListBox1.Clear
If temp <> "" Then
For i = 2 To UBound(a, 1)
If (UCase(a(i, 2)) Like temp & "*") + _
(UCase(a(i, 3)) Like temp & "*") Then
x = x + 1
ReDim Preserve tbl(1 To 2, 1 To x)
tbl(1, x) = a(i, 2) & " " & a(i, 3)
tbl(2, x) = i
End If
Next
If x > 0 Then
Me.ListBox1.Column = tbl
Me.TextBox10.Value = ""
Else
MsgBox "No match"
End If
End If
End Sub