so klappt es!!!

Code:
Private Sub UserForm_Activate()
While userform1.Visible
    DoEvents
    Label1.Caption = ReadAllDigital
    DoEvents
Wend
End Sub
Vielen Dank für Eure Ideen und Anregungen!!!
Nico