Also hab hier mal ne einfache sache die ich nicht compiled krieg
Woran liegts?

bitte helft ...

Declare Sub Transfer(sendeempf As Byte , Adresse As Byte , Varnr As Byte , Wert As Word) As Word

Dim Empfang As Word

Dim Sende As Byte
Dim Adr As Byte
Dim Variable As Byte
Dim Wertt As Word

Sende = 1
Adr = 1
Variable = 5
Wertt = 12314


Do
Empfang = Transfer(sende , Adr , Variable , Wertt)
Loop


Sub Transfer(sendeempf As Byte , Adresse As Byte , Varnr As Byte , Wert As Word) As Word
Transfer = Wert
End Sub