vlookup? on a text/combo box

[kelvin_9]

greeting all. i have some questions on vba text/combo box

i'm planning to create a form for data entry with my item list database
I need help on "textbox2" & "textbox3" to update when "textbox1" is entered like a vlookup formula, however i stuck with the code
here come with my template, can anyone give a helping hand on any solution?
http://kel.ddns.net/f/7bb54844a2/?raw=1
thanks a lot

 

[kelvin_9]

sorry for the code missing

Private Sub TextBox1_Change()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("sheet2")
    Dim itemcode As Variant
   
    If Me.TextBox1.Value <> "" Then
        'On Error Resume Next
        If IsNumeric(Me.TextBox1.Value) Then
            itemcode = CLng(Me.TextBox1.Value)
        Else
            itemcode = Me.TextBox1.Value
        End If
       
       
        Me.TextBox2.Value = Application.WorksheetFunction.VLookup(itemcode, sh.Range("A:C"), 2, 0)
    End If
End Sub

 

[kelvin_9]

i am sorry for the messed up Fluff

BTW, anyone.?
thank you very much