Asignar rango a un textbox

Estimada experto: tengo el siguiente código, que selecciona perfectamente un rango de celdas. Mi pregunta es como asignar este rango seleccionado a un texbox, y a su ves guardarlo en otra celda. Muchas gracias.
Hoja5.Select
Range("b1").CurrentRegion.Select
'Si habrá filas o columnas vacías en tu rango, tendrás que recorrer hacia arriba o hacia la izquierda para obtener la última fila y última col, con:
 fila = Range("A1000").End(xlUp).Row ' prevee 1000 facturas por usuario
col = Range("11" & fila).End(xlToLeft).Column ' COMIENZA A CONTAR DESDE LA COLUMNA 11 QUE ES LA PRIMERA VACIA
Range("b1", Cells(fila, col)).Select ' RANGO SELECCIONADO
'Selection.PrintOut Copies:=1
' textbox22 ??????????