If picture1(0).Picture = False Then
GoTo erhandler
erhandler:
MsgBox ("Achtung")
Exit Sub
End If
 
If picture1(1).Picture = False Then
GoTo erhandler2
erhandler2:
MsgBox ("Achtung")
Exit Sub
End If
 
If picture1(2).Picture = False Then
GoTo erhandler3
erhandler3:
MsgBox ("Achtung! Es müssen immer 3 Bilder eingetragen werden")
Exit Sub
End If