Abrir, guardar y borrar una imagen

En el form colocar un control picturebox, tres botones y dos cajas de dialogo(De abrir y guardar respectivamente)

Codigo: 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error GoTo ErrorHandler
        With OpenFileDialog1
            .Filter = "Archivo Jpg|*.Jpg|Archivo Bmp|*.Bmp"
            .FilterIndex = 1
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                PictureBox1.Image = Image.FromFile(.FileName)
            End If
        End With
        Exit Sub
ErrorHandler:
        MsgBox("Se produjo en error" & Chr(13) & "No se pudo leer el archivo: " + OpenFileDialog1.FileName, MsgBoxStyle.Information, "Aviso")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error GoTo ErrorHandler
        With SaveFileDialog1
            .Title = "Guardar iamgen"
            .Filter = "Archivo Jpg|*.Jpg|Archivo Bmp|*.Bmp"
            .FilterIndex = 1
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                PictureBox1.Image.Save(.FileName)
            End If
        End With
        Exit Sub
ErrorHandler:
        MsgBox("Se produjo en error" & Chr(13) & "No se pudo guardar la imagen", MsgBoxStyle.Information, "Aviso")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Image = Nothing
        Me.Refresh()
    End Sub
End Class