Visual Basic - Guardar informacion en un archivo con extension.

¿Como puedo guardar cualquier tipo de informacion pasandola a un procedimiento que te pregunte el tipo de extension deseado?
He comenzado utilizando commondialog de esta manera:

Public Sub GuardarComo(CmmDialogEdicion As Object)
\'Esta funcion muestra el commondialog Guardar Como para guardar en el archivo especificado

On Error GoTo Err_Guardar

On Local Error Resume Next
CmmDialogEdicion.CancelError = False
\'Especificamos las extensiones a usar
CmmDialogEdicion.DefaultExt = \"*.doc\"
CmmDialogEdicion.Filter = \"Ficheros Word (*.doc)|*.doc |Ficheros de texto (*.txt)|*.txt |Ficheros Acrobat Reader (*.pdf)|*.PDF\"
CommonDialog1.FileName = sArchivo
CmmDialogEdicion.ShowSave
CmmDialogEdicion.FilterIndex = 1
CmmDialogEdicion.InitDir = \"c:\\pruebas\"
CmmDialogEdicion.Flags = cdlOFNOverwritePrompt
CmmDialogEdicion.Flags = cdlOFNPathMustExist

If Err Then
\'Cancelada la operación de guardar
Else
sArchivo = CommonDialog1.FileName
End If


Err_Guardar
MsgBox \"Se ha producido un error en el proceso guardar.\"

End Sub

-Muchas gracias por su atencion-