Das hat nichts mit der Case Anweisung zu tun, sondern mit der falschen Syntax der IFs.
Hier fehlt ein Leerzeichen
If Pinb.3 = 1then
If Pinb.3 = 1 Then

Hier fehlt das then
If Pinb.2 = 1
If Pinb.2 = 1 Then

Gruß

Rolf