Crear Un Archivo .txt A Partir De Una Consulta En Vb

[ajojara]

Utiliza print
Ejemplo datos separados por ;

dim n as integer

n = FreeFile

Print #n, Chr(34) + Format(Date, "dd/mm/yyyy") + Chr(34) + ";" + Chr(34) + var1 + Chr(34) + ";" + _
var2+ ";" + var3
Close #n