Mit "Call".

Funktion definieren:
Code:
Sub Batteriespannung() 
Local W As Word 
   Start Adc 
   W = Getadc(6) 
   Volt = W * Ref 
   Volt = Volt * 5.2941 
   Print "Die aktuelle Spannung beträgt: " ; Volt ; " Volt" 

End Sub
Funktion aufrufen:
Code:
Call Batteriespannung    'Taste 1 Zeigt Bateriespannung über RS232 an
Steht alles im Beispielprogramm

mfG
Tippo