On Error GoTo ErrHandler

Dim vResult
Dim sFileName As String

Picture1.Visible = True
sFileName = Trim(BMPDestinationPath) & ".bmp"
vResult = Dir(JPEGFilePath & ".jpg")
If Not vResult = "" Then
Picture1.Picture = LoadPicture(JPEGFilePath)
Call SavePicture(Picture1, sFileName)
End If
Picture1.Visible = False
Exit Sub

ErrHandler:
MsgBox Str(Err.Number) + " : " + Err.Description, vbInformation
Err.Clear