VB Code:
  1. If Picture1.Picture = False Then
  2.      MsgBox("Select Picture"), vbOKOnly
  3.      Exit Sub '<===== insert this line
  4. End If