Ist nicht mehr nötig. Ich habs hinbekommen und zwar hab ich in der Sectic folgendes geschrieben:

Code:
Dim Alarm_dauer As Word
Alarm_dauer = 0

Do 
.
.
.
Loop 
End

Sectic:
   If PortB.1 = 1 Then Alarm_dauer = Alarm_dauer + 1
   If Alarm_dauer = 5 Then                                            ' Alarm dauert 5 Sekunden
   Reset PortB.1
   End If
Return
Vielen Dank für deinen Tip und schönen Sonntag dir...