Cuando el texto es extenso(...)

[meru-kun]

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function

Con esa funcion cortas el texto aprox. por el caracter que tu quieres. Si por ejemplo el caracter 200 esta en "hola amigo", en vez de dejar "hol", deja "hola".

Prueba la funcion llamandola asi:
Function cortarHasta(200,variable," ")

Suerte!