Velleman K8055 mit Excel Eingänge lesen

[Nico99]

Kann es sein, dass die Sub

Sub scan_DigitalAll() 
Dim i As Integer 
Dim a As Long 
a = ReadAllDigital 
Do While i < 1000 
    Label1.Caption = a 
    i = i + 1 
Loop 
End Sub

in einer UserForm gar nicht verarbeitet wird?