[glow=red:699c387101]Das ist die Lösung deines problems:[/glow:699c387101]
Code:
Dim A As Integer

Do
Waitms 1
A = A + 1
Loop Until A = 500000 Or Portd.0 = 1
Entweder portd.0 = 1 oder die 3 Min sind vorbei wird dei schlaufe unterbrochen!