Visual Basic - guardar datagrid con el common dialog box

hola, tego este problema:

tengo un datagrid y debo guardar su contenido como txt usando el common dialog box; lo extraño es que cuando lo "guarda" no lo esta guardando, solo me dice que si, pero no lo crea.

podrían decirme si hay un codigo especial que insertar en algun lugar?

gracias,
los quiero mil.

Debes de crear el Archivo el utilizar el Save no quiere decir que lo guarde automaticamente sino mas bien debes de crear el archivo de texto e insertar la informacion del datagrid, para esto te paso esta rutina que no este completa es decir faltaría darle el ancho adecuado a los datos para que te salgan ordenados alineados por columnas pero si los manda.

Private Sub cmdTxT_Click()

Dim Texto
Dim Ban As Boolean
Dim I, J As Integer
CD.Filter = "Archivo de Texto (*.txt)|*.TXT"
CD.ShowSave
If CD.FileName <> "" Then
If Dir(CD.FileName) <> "" Then 'Si Existe el Archivo
Kill CD.FileName 'Lo Eliminamos
End If
Open CD.FileName For Output As #1
For I = 0 To Adodc1.Recordset.RecordCount - 1
Texto = ""
Ban = False: Ban1 = False
For J = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = J
DataGrid1.Row = I
If Not Ban Then
Ban = True
Texto = DataGrid1.Text + Space(2)
Else
Texto = Texto + DataGrid1.Text + Space(2)
End If
Next J
Print #1, Texto
Adodc1.Recordset.MoveNext
Next I
Close #1
''Si queremos Abrir el Archivo
Dim MyValue
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & CD.FileName, vbMaximizedFocus)
End If
End Sub