Updating TextBox from a combobox selection.

[rpadminserver]

Hello all...
I have code for a searchable combo box, that is working just the way I want it to.

Private Sub ComboBox1_change()
Dim i As Long
For i = 1 To Application.WorksheetFunction.CountA(Sheet2.Range("a:a"))
If LCase(Left(Sheet2.Cells(i, 1), 1)) = Me.ComboBox1 And Me.ComboBox1 <> "" Then
Me.ComboBox1.AddItem Sheet2.Cells(i, 1)
End If
Next i
End Sub

My problem:
Sheet 2 - Column B has a code that I need to have appear in a text box.


The best way to explain this is, the search box is for a product. The text box needs to be populated with the corresponding UPC code for that product.

Thanks

Rob