Hallo zusammen,

ich bräuchte noch einmal eure Hilfe.
Ich versuche eine Sub einzubinden und dort eine Varible in die Hauptschleife zu übergeben.
Mein eigendliches Programm habe ich nun auf diesen Rest zusammengeschrumpft um die Übersicht zu behalten.

Hier tritt der selbe Fehler auf, den ich nicht verstehe:
"Error: 72: Getclass error [0]"

$regfile = "M8def.dat"
$crystal = 3686400

Dim A As Integer
Dim B As Integer
Dim C As Bit

Declare Sub Print_word(byval C As Bit)

Ddrc = &B00111111

Do
Mache irgendwas

Call Print_word(byval C As Bit)

Loop

Sub Print_word(byval C As Bit)
Mach etwas anderes
und gib C an die Hauptschleife
End Sub

Was ist falsch???

Danke für die Hilfe!!!