I use this a macro to find a value(with a part or with complete value) in column of excel....

Now i have migatre part of mine code in VB classic 6.0

assuming the record where is stored the value of find is inested column K now in VB is in field PROVA11 how to convert the excel macro...

visual basic code:
Private Sub CommandButton5_Click()

Dim CL As Object

Dim T As String
Dim INTRESULT As Integer

If TextBox9.Value = "" Then
msgbox "INSERIRE UN VALORE PER LA RICERCA NEL CAMPO NOMINATIVO!", vbCritical
Exit Sub
End If

Set NOMIMATIVO = ActiveSheet.Range(Cells(3, 11), Cells(3, 11).End(xlDown))

For Each CL In NOMIMATIVO
G = Me.TextBox9.Text
If CL.Value Like "*" & G & "*" Then
INTRESULT = 1
DOMANDA = msgbox("HO TROVATO " & CL.Value & ", VUOI FERMARTI ?", vbYesNo)
If DOMANDA = vbYes Then
INTRESULT = 2
Me.TextBox9.Value = ""
T = CL.Row
Me.ScrollBar1.Value = T
Me.TextBox1.Value = Sheets("RATE").Cells(T, "A").Value
Me.TextBox2.Value = Sheets("RATE").Cells(T, "K").Value
Me.TextBox3.Value = Sheets("RATE").Cells(T, "J").Value
Me.ComboBox1.Value = Sheets("RATE").Cells(T, "M").Value
Me.TextBox5.Value = Sheets("RATE").Cells(T, "AD").Value
Me.TextBox7.Value = Sheets("RATE").Cells(T, "D").Value
Me.TextBox8.Value = Sheets("RATE").Cells(T, "E").Value
Me.TextBox10.Value = Sheets("RATE").Cells(T, "I").Value
Me.TextBox11.Value = Sheets("RATE").Cells(T, "L").Value
Me.TextBox12.Value = Sheets("RATE").Cells(T, "AB").Value

If Sheets("RATE").Cells(T, "AI").Value <> "" Then
USER = Sheets("RATE").Cells(T, "AI").Value
Me.TextBox13.Value = Application.WorksheetFunction.VLookup(USER, Worksheets("TABELLA").Range(Worksheets("TABELLA"). Range("O1:O3"), Worksheets("TABELLA").Range("P3").End(xlUp)), 2, False)
Else
Me.TextBox13.Value = Sheets("RATE").Cells(T, "AI").Value
End If

Me.TextBox14.Value = Sheets("RATE").Cells(T, "G").Value
Me.TextBox15.Value = Sheets("RATE").Cells(T, "B").Value
Me.TextBox16.Value = Sheets("RATE").Cells(T, "H").Value
Me.TextBox17.Value = Sheets("RATE").Cells(T, "S").Value
Me.TextBox18.Value = Sheets("RATE").Cells(T, "T").Value
Me.TextBox19.Value = Sheets("RATE").Cells(T, "U").Value
Me.TextBox20.Value = Sheets("RATE").Cells(T, "V").Value
Me.TextBox21.Value = Sheets("RATE").Cells(T, "W").Value
Me.TextBox22.Value = Sheets("RATE").Cells(T, "X").Value
Me.TextBox23.Value = Sheets("RATE").Cells(T, "Y").Value
Me.TextBox24.Value = Sheets("RATE").Cells(T, "Z").Value
Me.TextBox6.Value = Format((Sheets("RATE").Cells(T, "F").Value), "##,##0.00")
Me.TextBox27.Value = Sheets("REPORT").Range("D71").Value

If Sheets("RATE").Cells(RIGA, "AH").Value = "1" Then
Me.TextBox26.Value = Sheets("RATE").Cells(RIGA, "AJ").Value
Else
Me.TextBox26.Value = ""
End If

Exit For
End If
End If
Next

Label42.Caption = Sheets("TABELLA").Range("L1").Value
Label41.Caption = Sheets("TABELLA").Range("L2").Value
Label50.Caption = Sheets("TABELLA").Range("L3").Value
Select Case INTRESULT
Case 0 ' not found
Me.TextBox9.Value = ""
msgbox "NESSUN NOMINATIVO TROVATO CON IL VALORE: " & G & "", vbInformation
Case 1 ' all found
Me.TextBox9.Value = ""
msgbox "TUTTI I NOMINATIVI CON " & G & " SONO STATI VISUALIZZATI.", vbInformation
Case 2 ' stopped
' do nothing?
End Select

End Sub