Control Microsoft Comman Dialog

'Ejemplos de los métodos para Seleccionar Impresora, Abrir, Guardar
'--------------------------------------------------------------------
'Seleccionar impresora
    On Local Error Resume Next
    CommonDialog1.CancelError = True
    CommonDialog1.Flags = cdlPDPrintSetup
    CommonDialog1.ShowPrinter
    Err = 0

'Abrir
    On Local Error Resume Next
    CommonDialog1.CancelError = True
    'Especificar las extensiones a usar
	CommonDialog1.DefaultExt = "*.crd"
    CommonDialog1.Filter = "Cardfile (*.crd)|*.crd|Textos (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
    CommonDialog1.ShowOpen
    If Err Then
        'Cancelada la operación de abrir
    Else
        sArchivo = CommonDialog1.FileName
    End If

'Guardar
    On Local Error Resume Next
    CommonDialog1.CancelError = True
	'Especificar las extensiones a usar
    CommonDialog1.DefaultExt = "*.crd"
    CommonDialog1.Filter = "Cardfile (*.crd)|*.crd|Textos (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
    CommonDialog1.FileName = sArchivo
    CommonDialog1.ShowSave
    If Err Then
        'Cancelada la operación de guardar
    Else
        sArchivo = CommonDialog1.FileName
    End If

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)