Puedes utilizar
SaveFileDialog para indicar la ruta donde quieres guardar tu archivo, algo como lo siguiente:
Código vb:
Ver originalDim SFD As Windows.Forms.SaveFileDialog = New Windows.Forms.SaveFileDialog()
SFD.RestoreDirectory = True
Dim _Path As String = String.Empty
Dim _Extension As String = ".jpg"
If SFD.ShowDialog() = DialogResult.OK Then
_Path = SFD.FileName
'-- Aqui guardas tu imagén
End If
Saludos!