Hente data fra Sheet ved indtastning

For at forklare det lidt anderledes. Vil jeg gerne have en søgefunktion i kolonne A, hvis den finder "Fisk" i A32, skal den tage værdien i B32, og smide værdien over i mit txtAdresse.

Kan man bruge Vlookup til dette??

Need help!!

Private Sub cboKundensNavn_Change() 
     
    Dim blnFound As Boolean 
    Dim lngRowNext As Long 
    Dim rng As Range 
    Dim rngA As Range 
    Dim strNavn As String 
    Dim wks1 As Worksheet 
     
    Set wks1 = ThisWorkbook.Worksheets("Sheet1") 
    Set rngA = wks1.Range("A2:A10") 
    strNavn = Me.cboKundensNavn.Value & vbNullString 
    blnFound = False 
     
    If strNavn <> vbNullString Then 
        For Each rng In rngA 
            If strNavn = rng.Value Then 
                Me.txtKundensFirmaNavn.Value = rng.Offset(0, 1).Value 
                blnFound = True 
                Exit For 
            End If 
        Next rng 
         
        If blnFound = False Then 
            lngRowNext = wks1.Range("A" & wks1.Range("A:A").Rows.Count).End(xlUp).Row + 1 
            wks1.Range("A" & lngRowNext).Value = strNavn 
        End If 
    End If 
End Sub 

Private Sub cmdCont_Click() 
     
    Dim wks1 As Worksheet 
     
    Set wks1 = ThisWorkbook.Worksheets("Sheet1") 
    Set rngA = wks1.Range("A2:A10") 
     
    strNavn = Me.cboKundensNavn.Value & vbNullString 
     
    If strNavn <> vbNullString Then 
        For Each rng In rngA 
            If strNavn = rng.Value Then 
                rng.Offset(0, 1).Value = Me.txtKundensFirmaNavn.Value 
                ' and so on 
                Exit For 
            End If 
        Next rng 
    End If 
     
End Sub