Linea en cuadro de texto

A lo mejor estoy rizando el rizo y no se puede hacer, pero ahí va, ¿Es posible mediante una macro crear una línea dentro de un cuadro de texto cuyo principio sea la posición del cursor y termine en el marco del cuadro de texto, adaptándose a el, de tal forma que crezca o disminuya si agrandas o reduzcas el cuadro de texto?