Wert in Textbox1 eintragen WIE?

Ich habe mehrere Textboxen in einem UserForm.

Jetzt habe ich aus eine Tabelle einen Wert ausgelesen und möchte ihn in die erste Textbox eintragen.

Mein versuch schlägt fehl:

Private Sub ComboBox1_Change()
cc = 0
plus:
cc = cc + 1
If cc > 81 Then GoTo ENDE
Sheets("Test").Select
Cells(cc, 4).Select
wert1 = ActiveCell.Value
If wert1 <> ComboBox1 Then GoTo plus
If wert1 = ComboBox1 Then Cells(cc, 3).Select
wert2 = ActiveCell.Value
TextBox1.Value = wert2

Wo ist der Fehler?

ENDE:
If cc < 81 Then GoTo plus
End Sub