VB.NET pictureBoxに表示された画像を保存するプログラム

VB.NET
ピクチャーボックスに表示した画像を保存するプログラムを作っています。
以下の動作のプログラムを作りたいと考えています。

■動作
Loadボタンでファイルダイアログ開く。
↓
画像を選択して開くを押す。
↓
ピクチャーボックスに表示される
↓
Saveボタンでファイルダイアログを開きピクチャーボックスに表示されている画像を保存する。この時ファイル名は現在の日付。 例）0728.jpg

現在Saveボタンでファイルダイアログを開いたあと、画像を選択して名前を
入力しなければ保存ができない状態になっています。そのため上記の動作
をさせるためのプログラムや方法をご教示ください。よろしくお願いいたします。

’’’Public Class Form1
’’’Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Load.Click
’’’Dim ofd As New OpenFileDialog
’’’ofd.Filter = "JPG" & "|" & ".jpg" & "|" & "PNG" & "|" & ".png" & "|" & "GIF" & "|" & ".gif" & "|" & "BMP" & "|" & ".bmp" ' 読込むファイルの種類を設定
’’’If ofd.ShowDialog() = DialogResult.OK Then ' ファイルダイアログを開く。
’’’PictureBox1.SizeMode = PictureBoxSizeMode.Zoom ' PicturaBox1に表示される画像を比率を変えずに表示
’’’PictureBox1.Image = Image.FromFile(ofd.FileName) ' PictureBox1に選択された画像ファイルを表示
’’’End If
’’’End Sub

’’’Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click
’’’Dim sfd As New SaveFileDialog ' 各パラメータを設定していきます
’’’sfd.Filter = "JPG" & "|" & ".jpg" & "|" & "PNG" & "|" & ".png" & "|" & "GIF" & "|" & ".gif" & "|" & "BMP" & "|" & ".bmp"
’’’If sfd.ShowDialog() = DialogResult.OK Then ' ファイルダイアログを開く。
’’’PictureBox1.Image.Save(sfd.FileName, Imaging.ImageFormat.Jpeg)
’’’End If

’’’End Sub
’’’End Class