Devi fare un ciclo con questa logica:
- Conti il numero di caratteri fino al prossimo invio
- Separi ogni 120 caratteri


codice:
dim x as integer
dim x2 as integer

x2=1
x=instr(x2,Text,vbCrLf )  'Trovo il primo invio(vbCrLf) nella stringa
while x<>0  'finche trova vbCrLf 
   if x-x2>120 then  'Se ci sono più di 120 caratteri
      text=left(text,x2+120) & vbcrlf & mid(text,x2+120)  'inserisco vbCrLf    
      x=x2+120
   endif
   x2=x+1  'cerco prossimo vbCrLf 
   x=instr(x2,Text,vbCrLf )
wend
Più o meno scritto un po di fretta