Visual Basic - Guardar imagenes con commondialog

quisiera que me apoyaran en una duda que tengo sobre como guradra una imagen, usando el common dialog.
lo que pasa es que al cargar una imagen en un control image o un picture box, quiero guardar esa imagen en una ubicacion cualquiera para respaldo usando el commondialog. ¿se puede hacer eso?
les agradeceria bastante su ayuda.

y es que lo que pasa que para guardar un archivo de texto usando el control richtextbox uso el siguiente codigo y funciona muy bien:

On Error GoTo ERROR
CDGuardar.DialogTitle = "Guardar como"
CDGuardar.Filter = "Texto(.txt)|*.txt"
CDGuardar.CancelError = True
CDGuardar.ShowSave

Open Commondialog1.FileName For Output As #1
Print #1, Richtextbox1.text
Close

ERROR:
MsgBox "La Accion ha sido Cancelada", vbInformation, Mensaje del
Sistema"

¿se podria hacer algo parecido, para guardar una imagen?, me seria de bastante ayuda su cooperacion.

P.D. O por lo menos diganme como puedo solucionar el problema para guardar una imagen. GRACIAS.

te paso un ejemplo:

Private Sub Command1_Click()

On Error GoTo errSub

With CommonDialog1

.Filter = "BMP|*.bmp"

.ShowSave
If .FileName = "" Then Exit Sub
SavePicture Picture1, .FileName

End With

Exit Sub

errSub:
MsgBox Err.Description

End Sub

Private Sub Form_Load()
Picture1 = LoadPicture("c:\windows\plumas.bmp")
End Sub

yo estoy tratando de guardar un imagen usando el picture pero la base de datos no me deja o no se que estoy haciendo mal pero este codigo no lo entiendo, y me gustaria saber su uso exactamente y un codigo para agregar datos con data
porque el que tengo es:

data1.readonly= false
data1.recordset.addnew

PORFA ayudenme