Muchas gracias por responder, ya encontre una solucion que se parece bastante a la tuya:
primero cargo la imagen que quiero y la mostrar en un picturebox.
dim ruta_origen as string
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
ruta_origen = OpenFileDialog1.FileName
PictureBox1.Image = Bitmap.FromFile(mi_ruta)
End Sub
despues guardo la imagen con la funcion System.IO.File.Copy
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
dim ruta_destino as string
ruta_destino = ("\SERVIDORc$carpetaimagen.jpg")
System.IO.File.Copy(ruta_origen, ruta_destino, False)'se pone false para no sobrescribir una ruta con el mismo nombre, de lo contrario se pone true
MsgBox("Foto cargada correctamente")
Catch ex As Exception
MsgBox("El nombre del archivo ya existe, cambielo por otro")
End Try
End Sub
y eso es todo