Formulaire de recherche vba monocritère

Bonjour à tous,

j'ai créé un premier userform avec une recherche monocritère sur des chiffres et je n'arrive pas à modifier mon code vba pour que je puisse passer sur une recherche alphanumérique du type Art-0001
ci-après mon code vba et si quelqu'un pouvait me donner un coup de main !!

Private Sub TextBox1_AfterUpdate()

On Error GoTo 1

If WorksheetFunction.CountIf(Sheets("Stock").Range("A:A"), Me.TextBox1.Value) = 0 Then
MsgBox "Cette référence n'existe pas. Veuillez ressaisir une nouvelle référence", vbnInformation + vbOKOnly, "Article non trouvé"
End If

With Me
.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 2, 0)
.TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 3, 0)
.TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 4, 0)
.TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 5, 0)
.TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Stock").Range("base"), 6, 0)

1
End With

End Sub


Merci !!