Müsste es nicht ......

Code:
Sub Burst(byval Imp_dauer As Long)
 For Us1 = 0 To Imp_dauer
  Portb.3 = 1 (Pinb.3 =1)?
  -----------------------------             
  Waitus 10
  Portb.3 = 0 (Pinb.3 =0)?
-------------------------------
  Waitus 10
 Next Us1
End Sub
......heißen? Außerdem wird anscheinend nirgends ein Call Us_test ausgeführt?

Gruß Richard