Holla,

@tippo, das ist aber keine Funktion !

Eine Funktion hat, zum Unterschied einer Sub, die Möglichkeit einen Wert zurückzuliefern. Diesen Wert muss man beim Aufruf an eine Variable zuweisen.

Function schaut so aus:
Code:
' als erstes muss die Function bekannt gemacht werden:
Declare Function Batteriespannung() as Word

' Die Function selber
Function Batteriespannung() as Word

   Start Adc
   ' Der Wert der zurückgegeben werden soll, 
   ' muss einer Variablen zugewiesen werden, die den Namen der Function hat:
   Batteriespannung = Getadc(6) 

End Function
Aufrufen:
Code:
Dim W as Word
Dim Volt as Single
Const Ref = 5 / 1023      'Für Batteriespannungsberechnung

' Aufrufen der Function und den Wert nach W
W = Batteriespannung()

Volt = W * Ref
Volt = Volt * 5.2941
Print "Die aktuelle Spannung beträgt: " ; Volt ; " Volt" 

...
End
Call ist nur um eine Sub aufzurufen, es kann kein Wert direkt zurückgegeben werden.

Am besten in die Hilfe von Bascom schauen, da gibts zu allem ein Beispiel.