Dialogtext in Tabelle

ich schreibe gerade mein ersten Dialog und wollte den Text aus dem Eingabefeld an eine Tabelle übergeben.
Bisher sieht der OK Knopf so aus:

Sub Schaltfläche2_BeiKlick()
Sheets("Werte").Select
Range("a1").Select

Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Range("a1").Select
Loop

ActiveCell.Value = ??????????.Text
ActiveCell.Offset(0, 1).Range("a1").Select

TextBox1.SetFocus

End Sub

Was muss ich bei ????? angeben? Habe es mit vielen Variationen ausprobiert.

Vielen Dank Peter