Wo ist denn genau dein Problem, also wie zeigt es sich?
Ich würde das DIM a aus der Whileschleife rausnehmen und davor einmal deklarieren. In der While Schleife dann nurnoch a=ReadAnalogChannel(1).
Ausserdem musst du einen Typen angeben, also z.B. Dim a as Integer.
Zuletzt kann es noch sein, dass sich durch diese Endlosschleife die Oberfläche aufhängt, weil das Hauptprogramm diese Schleife nie verlassen kann. Füge noch in der Schleife ein DoEvents() ein. Damit sollte dann ein Blockieren verhindert werden.