Textboxa girilen değerin karşılığını etikete yazdırmak

[HASAN40]

Merhaba ;
opkod1 adlı textboxın değişim olayına aşağıdaki kodları yazdım. Burada yapmak istediğim opad1 etiketinin başlığını (caption) opkod1 textboa girilen değeri excel sayfasında düşeyaratıp yazdırmak. Kodlar aşağıdadır, yardımlarınızı beklemekteyim.

Private Sub opkod1_Change()
 On Error Resume Next
    MsgBox "Kod çalışmıyor :@"
    opad1 = WorksheetFunction.VLookup(opkod1, Sheets("OPERATOR").Range("a2:b50"), 2, 1)
End Sub

Şimdiden teşekkürler...

Düzenleme ( 20:07 ) : range("a2:b50") aralığında arama yaptırdığım a sütununda sayısal değer olduğu için çalışmıyor ancak sayısal değerlerin başına bir harf eklediğimde kod düzgün çalışıyor :/

 

[HASAN40]

Merhaba ;
Sayısal bir değer iken nasıl kodları çalıştırabilirim? Sayısal değerlerin başına bir harf eklediğimde istediğim oluyor, istediğim harf eklemeden bunu başarmak. Yardımcı olabilir misiniz?