Visual Basic - Print &write

Necesito una función que al poner un string o variant en un archivo no coloque el retorno de carro y avance de linea , excepto que yo lo incluya en el string a insertar en el archivo.

Si quieres puedes grabar con archivos relativos, que en dicho caso no concatena el chr(13)+chr(10)

Type Record ' Define un tipo definido por el usuario.
Id As Integer
Nombre As String * 20
End Type
Dim MiRegistro As Record ' Declara una variable.
Open "PRUEBA" For Random As #1 Len = Len(MiRegistro)
' Cierra antes de volver a abrir en otro modo.
Close #1

Para grabar usa Put#1,NrodeRegistro,Variable

Para acceder al registro usa Get#1, NrodeRegistro,Variable

Open "PRUEBA" For Random As #1 Len = Len(MiRegistro)
' Se lee el archivo de ejemplo por medio de la
' instrucción Get.
Posición = 3 ' Define el número del registro.
Get #1, Posición, MiRegistro ' Lee el tercer registro.
Close #1 ' Cierra el archivo