Visual Basic para Aplicaciones - Llenar el renglon con guiones

Que tal
Saben como llenar un renglon con guiones desde donde termina el texto hasta el final de la linea

a sea algo asi

texto ----------------------------------------------------

Gracias por molestarse en leer esta peticion

Con que con VB o en VBA con WORD en EXCEL, En ACCES, no especificas.
yo haria algo así primero saber cuantos guiones caben en el renglon. y luego usar un el LEN para medir el largo del texto y descontarlo del numero de guiones.

algo así
const Nguion as integer=50 'caben 50 guiones
dim text as string 'para el valor del text
dim ntext as integer 'para el largo del text

text=textbox1.text
ntext=len(text) 'extraer el largo del text
text=text & string(nguion-ntext,"-") 'La funcion string repite un numero x de caracteres así se concatena el texto con el (numero - el largo del texto) de guiones.

Espero te sirva, si necesitas mas apoyo a mi correo.