Prueba con esto (lo acabo de hacer ahora, pero puedes meterlo en una función):
Código:
largo = 80
cadena = "Probando"
If Len(cadena) > largo Then
'si la cadena ocupa más de 80 caracteres, la cortamos
'y dejamos solo los primeros 80 caracteres
cadena = Mid(cadena, 1, largo)
ElseIf Len(cadena) < largo Then
'añadimos puntos hasta completar una cadena con 80 caracteres
cadena = cadena & String(largo - Len(cadena), ".")
End If
Response.write cadena
El problema que tendrás es, que una línea con 80 caracteres, puede no ocupar todo el ancho de la línea, y en cambio otra línea sí. Me explico: hay letras que no ocupan el mismo espacio, por ejemplo, la "a" es más ancha que la "i", y por tanto, con menos letras "a", rellenarás el mismo espacio que ocuparías con más "i".