Visual Basic - cómo creo un archivo y escribo en el???

quiero escribir en Resultado bc3.txt
'Escribe en el nuevo archivo
Dialogo.Flags = &H4 Or &H8 Or &H100
Dialogo.FileName = "Resultado bc3.txt" 'abre archivos *.bc3
Dialogo.InitDir = "C:\pruebas de bc3" 'realiza la búsqueda en
'el directorio pruebas de bc3
On Error Resume Next
Dialogo.ShowOpen
If Err Then ' si hay un error que no se seleccione archivo
Err.Clear
MsgBox ("No se ha seleccionado ningún archivo")
On Error GoTo 0
'y que pare la ejecución
End If
newarchivo = Dialogo.FileName 'guarda el nombre de archivo
nFile = FreeFile
Open newarchivo For Append As #nFile

Print #1, Almacena
Close #1

alguien me puede echar un cable?
gracias de antemano

Si lo que quieres es agregar:
on errror resume next
dlg.showopen
if err then
msgbox "no selecciono"
exit sub
end if
dim f%
f=freefile
open dlg.filename for append access write as #f
print #f,,esotquiero escribir
close #f