Utilizacion del CommonDialog en vb 6

[buxforever]

Actuamente asi tengo el codigo

With CommonDialog1
''Muestra el titulo del cuadro de dialogo
.DialogTitle = " Seleccione la base de datos a extraer "

''Abrimos cuadro de dialogo en modo (Showsave)
.ShowSave

'Muestra el nombre del archivo dentro del panel de seleccion del cuadro de dialogo
If .FileName <> "" Then

''''Indica al Cuadro de Dialogo(CommonDialog) la ruta a la cual va extraer la base de datos correspondiente
FileCopy CommonDialog1.FileName, "F:\" & Dir$(CommonDialog1.FileName)
'' Muestra la Alerta indicando que la accion fue completada satisfactoriamente
If MsgBox("Base de datos extraida satisfactoriamente", vbOK + vbInformation, "Modulo") = vbOK Then '''En el caso del boton OK (SALIR)
End
Else ''De lo contrario
.ShowSave '''Volver a cargar el Cuadro Dialogo
End If
Else
''Mensaje de Alerta en caso de que no se seleccione ningun archivo
If MsgBox("No se ha seleccionado ningún archivo, Deseas salir de todos modos ?", vbOK + vbExclamation, "Modulo") = vbOK Then
End
Else
.ShowSave
End If
End If
End With
End Sub