Saving image to a folder

i am trying to save image from picture box to particular folder and i get the

ERROR "the given path's format is not supported"

Please find below my code

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

OpenFileDialog1.Filter = "only images|*.jpg"
OpenFileDialog1.Title = "Select a file"
Dim s As String = Application.ExecutablePath & "\images\"
OpenFileDialog1.InitialDirectory = s
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.CheckFileExists = True Then
PictureBox1.ImageLocation = OpenFileDialog1.FileName.ToString
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Else
MsgBox("Please Select a Image")
End If
End Sub

Private Sub btnSavePic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSavePic.Click
Try
Dim strBasepath As String
Dim strFilename As String
strFilename = OpenFileDialog1.FileName.ToString
strBasepath = Application.StartupPath & "\images"
If Directory.Exists(strBasepath) = False Then
Call Directory.CreateDirectory(strBasepath)
End If
'savefile()
Call PictureBox1.Image.Save(strBasepath & "\" & strFilename, System.Drawing.Imaging.ImageFormat.Jpeg)
Catch fileException As Exception
Throw fileException
End Try

End Sub