i need help please ??

I need help please ??

I want after search and found the name in textbox2 give other details in boxex form textbox3 - textbox11 and x image1

for this formula :

Private Sub TextBox2_Change()
Dim wks As Worksheet
With UserForm2
.ListBox1.Clear
.ListBox1.RowSource = ""
For Each wks In ThisWorkbook.Worksheets
wks.Activate
lastrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "D").End(xlUp).Row
For Each c In wks.Range("d17:d" & lastrow)
b = InStr(c, TextBox2.Value)
If b > 0 Then
.ListBox1.AddItem c
c.Select
End If
Next c
Next wks
.TextBox3.Value = ActiveCell.Offset(0, 1).Value
.TextBox7.Value = ActiveCell.Offset(0, 2).Value
.TextBox4.Value = ActiveCell.Offset(0, 3).Value
.TextBox8.Value = ActiveCell.Offset(0, 4).Value
.TextBox5.Value = ActiveCell.Offset(0, 5).Value
.TextBox10.Value = ActiveCell.Offset(0, 6).Value
.TextBox9.Value = ActiveCell.Offset(0, 9).Value
.TextBox6.Value = ActiveCell.Offset(0, 10).Value
.TextBox11.Value = ActiveCell.Offset(0, 11).Value
On Error Resume Next
End With
x = WorksheetFunction.VLookup(TextBox2.Text, Range("d17:p50"), 13, 0)
Image1.Picture = LoadPicture(x)
End Sub