Msgbox bij fout mislukt

[eeyk]

als ik dit toevoeg in

if text1.text = "" then
Form5.Show
MsgBox "Er is een Fout opgetreden Tijdens het Laden van Je homepagina", vbCritical, "Error"
Unload Me
else
end if

if text1.text = "text1" then
Form5.Show
MsgBox "Er is een Fout opgetreden Tijdens het Laden van Je homepagina", vbCritical, "Error"
Unload Me
else
end if

dit werkt allemaal wel maar de msgbox herhaalt zig telkens hoe krijg ik dit maar 1x

 

[Semafoor]

heb je die code in een timer geplaatst??

 

[eeyk]

nee het word geopent via

Private Sub Form_Load()
On Error Resume Next
' hier de code

' hier nog meer code

' hier nog meer code's ong 314 lijnen

end sub

 

[Guus2005]

geef control-break zodra je die tweede msgbox ziet. je komt dan in de code en kan je gaan debuggen.