wie wärs mit toggle..

If Tasterd1 = 0 Then
Waitms 100
toggle relaisvor
End If