Visual Basic - COMO USO EL COMMONDIALOG1 PARA GUARDAR UN ARCHIVO

Hola a todos, tengo el siguiente codigo que me exporta de un msflewxgrid a un excel, el tema es que quiero usar el commondialog para que me aparezca la ventana de guardar como y asi poder elegir la ruta y el nombre del archivo con el cual lo quiero guardar. Porque hasta ahora lo estoy metiendo por codigo, como lo veras mas abajo. ¿En donde puedo introducir el commondialog y como lo hago??
Muchas Gracias

Private Sub Command4_Click()
Dim fila As Long
Dim f As Byte
Dim i As Byte
Dim guardar As String
Dim appExcel As Excel.Application
Dim wbLibro As Workbook

Set appExcel = New Excel.Application
Set wbLibro = appExcel.Workbooks.Add

While msflexgrid1.TextMatrix(fila, 0) <> ""
For i = 0 To 11
appExcel.Cells(fila + 1, i + 1) = msflexgrid1.TextMatrix(fila, i)
Next
fila = fila + 1
i = 0
Wend

wbLibro.SaveAs "D:\Prueba.xls" 'Aca lo meto por codigo

wbLibro.Close

appExcel.Quit
Set wbLibro = Nothing
Set appExcel = Nothing
MsgBox "Se Generó Prueba.xls"
End Sub

pues mira, me imagino que ya sabes cómo agregar el control a la barra de controles, si no, dale click derecho en la barra de controles y luego en componentes, en la ventana que te aparece busca el microsoft common dialog y aceptar.
Una vez que hayas hecho esto, lo puedes poner en cualquier parte del formulario.
para utilizarlo debes poner algo como esto

Commondialog1.ShowSave.

Entonces te aparece la ventana donde te pide que guardes el archivo ( al ejecutar el programa ), al darle aceptar, lo único que hace es regresarte la ruta completa ( con todo y nombre del archivo ) de dónde deseas guardar el archivo.

En tu código puedes poner algo como esto

wlibro.SaveAs CommonDialog1.Filename