Wie ist die Declaration von Vb 'GetEON' ?
Hier noch ein link der dir unterumständen bei übersetzungen helfen kann.
Ist zwar schon was älter aber fast noch alles zutreffend.
http://www.jwrider.com/lab/BAS2PAS.htm
Boolean kannst mit Bool ersetzen 1 Byte reicht dafür
gruss Emil