Visual Basic - COMO HACER SAVE CON COMMONDIALOG EN VB6.0

HOLA :
COMO PUEDO HACER SAVE CON EL COMMONDIALOG EN VB 6.0 ALGUIEN ME DIO UNA AYUDA PERO FUE DE VISUAL 5.0 Y NO ME ANDUVO
LO QUE QUISIERA HACER ES QUE SE ABRA EL WINDOWS DE SAVE Y LO QUE SEA GUARDARLO EN CUALQUIER DIRECTORIO CON CUALQUIER NOMBRE COMO SE USA EN GENERAL EL REGULAR DE WINDOWS
DESDE YA MUCHISIMAS GRACIAS POR SU AYUDA
DANNY

Quizas lo que necesitas es:
Primero debes ir a propiedades de CommonDialog1 y seleccionar la Opcion "CancelError"

Private Sub Command1_Click()
Dim ArchivoGuardar as string

On error Goto ErrCancelado

CommonDialog1.showSave

ArchivoGuardar = CommonDialog1.Filename

Exit Sub

ErrCancelado:
Select case Err
Case 32755 'Solo si has presionado cancelar en el CommonDialog1
Exit sub
Case Else
msgbox Err.Description & ", " & err.Number
End select
End Sub