Visual Basic - Ajustar el contenido de un text a la ventana

Nececito programar el menú del block de notas "Ajustar a la ventana", alguien puede decirme como hacerlo???

desde ya muchas gracias.....

Hay una funcion InStr(inicio,Cadena1,Cadena2) que a partir del inicio busca en la cadena1 la cadena2 y nos devuelve la posición donde se encuentra, entonces
L=Longitud máxima
P=Posicion del espacio
I=Inicio

I=1
do while
P=instr(I,Linea," ")
if P<L then
I=P
else
exit Do
loop
NuevaLinea=mid(linea,1,I)
Puede haber algún error, pero la idea es buscar el espacio mas cercano y menor a la longitud máxima