VB: ¿ cómo creo un archivo ?

[Troyano]

sub grabar()
dim x as integer

'Buscas un numero de archivo libre
x = FreeFile
'Abres el archivo en forma secuencial para escritura con el
' numero de archivo
Open "unarchi.ext" For Output As x
'Escribes datos en el archivo
Print #x, "Un monton de datos"
'Cierras el archivo
Close x
end sub