Håndtering af søgeresultat med .Find

Hej

Jeg er ikke super skarp til VB-script, så måske mit spørgsmål ikke bliver 100% klart. Men jeg skal forsøge.

Jeg har en søge funktion som slår et givent ord op i kolonne1 på sheet "input". Pt. returner min funktion værdien af den fundne celle (funktionen er angivet nedenfor)

Jeg vil gerne kunne et af nedenstående:
1) Returner en handle til den givne række, så jeg på sheet "output" kan lave noget ala:
mitFelt1.value = handle."Data1".value
mitFelt2.value = handle."Data2".value

2) Returner indhold af et felt i rækken.
LookUp = c.value (her skal den så kigge i en defineret kollone i den fundne række)

Umiddelbart vil jeg mene at løsning er optimal.

Mine data kan se ud som:
Nøgle  Data1  Data2
A      Hej    Goddag
B      Av    Møg
C      Hurra  Super




Function LookUp(strWord)
With Worksheets("input").Range("a1:a50000")
    Set c = .Find(strWord, LookIn:=xlValues)
    If Not c Is Nothing Then           
        tmpWord = c.Value         
    End If
    LookUp = tmpWord
End With

End Function