Test with this code
Dim DelPic As String
Dim Response as long
DelPic = Me.picafter1filepath
If IsNull(Me.picafter1filepath) Or Me.picafter1filepath = "" Then
MsgBox "No Picture to Delete", vbInformation, "There is not much to delete"
Else
'Execute
Response =MsgBox...