Lopslag i VBA

Hej alle

Jeg har en userform hvor jeg ønsker en tekst indplaceret ift et Lopslag.
Jeg har tidligere fået hjælp der mindede om dette problem, men kan ikke få det til at virke.

Den kode jeg prøver med er nedenstående:

Private Sub UserForm_Activate()

With txtkarmbredde
If lstkarme.Text = "" Then
txtkarmbredde.Text = ""
Else
txtkarmbredde.Text = Evaluate("VLookup("&Me.lstkarme.Text&",Karme!A1:AO81,22,False)")
End If
End With

End sub

PFT for al hjælp ;-)