Druckerauswahl in TextBox 'auslagern'

Sub Print()
Application.ActivePrinter = "FreePDF XP auf Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"FreePDF XP auf Ne02:", Collate:=True
Application.ActivePrinter = "Brother DCP-315CN LAN Printer auf Ne04:"
End Sub

Nun möchte ich die Druckerbezeichnungen, also "Brother DCP-315CN LAN Printer auf Ne04:" und "FreePDF XP auf Ne02:" aus dem Code herausholen und durch 2 Textboxen ersetzen, in denen dann die jeweilige Druckerbezeichnung manuell eingetragen wird. Stelle mir das also in etwa so vor:

Sub Print()
Application.ActivePrinter = TextBox1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
TextBox1, Collate:=True
Application.ActivePrinter = TextBox2
End Sub

Jetzt brauche ich den unteren Code nur noch so, dass er funktioniert :-)
Ich hoffe, ich konnte mich einigermaßen verständlich ausdrücken - wenn nicht, bitte nachfragen.
Danke und Gruß
Henner