und, was bedeutet der Errorcode? Denkst du ich schüttel mir das mal eben aus dem Ärmel?   Error 381, Could not set the List property. Invalid property array index"

Ich denke der Fehler tritt auf wenn du keinen Listindex(markierter Listenwert) hast. Also Listindex abfragen. Kein Listindex= kein Listenwert = kein Textboxwert

Private Sub ComboBox1_Change()
 If ComboBox1.ListIndex < 0 Then
    TextBox1 = ""
    Exit Sub
 Else
    Me.TextBox1.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
 End If
End Sub  

Ich weis zwar nicht was du wirklich mit deinem Konstrukt bezweckst, aber so richtig sinnvoll sieht das nicht aus. Deshalb halte ich mich mit Ideen lieber zurück.