Hallo,

die Function sollte nicht am Anfang des Programmes stehen.
Sonst wird das Hauptprogramm nie ausgeführt.
Die Do ... Loop Schleife gehört an den Anfang. (nach Dim Taste as Byte)

Die Select Case Anweisungen sind falsch.
( nach Case ... gehört ein Doppelpunkt und dahinter die Anweisung )
sieh dir am Besten mal die Hilfe dazu an.

Pwm1a und Pwm1b in der Sub bewirkt überhaupt nichts, da du keine PWM eingerichtet hast.
sieh dir mal Config Timer1 = Pwm in der HIlfe an.
In dem Beispiel wird gezeigt, wie eine PWM eingerichtet wird.