Sub scan_DigitalAll()
Dim i As Integer
Dim a As long

a = ReadAllDigital

Do While i < 1000
.
.
.

probier es mal so!