A ver, son dos cosas diferentes.
El common dialog solo te da la parte visual, si querés escribir en el
archivo vas a tener que utilizar fso.
Dim fso As New FileSystemObject
Dim ts As TextStream
'Open file.
Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini")
'Loop while not at the end of the file.
Do While Not ts.AtEndOfStream
Debug.Print ts.ReadLine
Loop
'Close the file.
ts.Close
Para saber más de sus métodos debés googlear.
Saludos.
--
Osvaldo Sevilla - Encargado de Desarrollo
http://www.worksarray.org
Bolsa de Trabajo IT
GNU/Linux User Number #403799
-------------------------------------------------------
Hosting Linux - PHP5/MYSQL5/PostgreSQL 8
http://www.hostsarray.com
Desde 10 Pesos por mes