Warum geht das nicht ? Was hast Du für 'ne Bascom Version ?
Läuft bei mir einwandfrei, mit der 1.11.9.2. und auch vorher schon, weil ich das in älteren Programmen so öfter gemacht habe.

Aber man könnte es dann immer noch besser mit einem Asc(wertstr) machen, und dann die Hexwerte der Zahlen beim Case angeben:

Code:
Dim Wertstr As String * 1

Wertstr = "1"

Dim Bytewert As Byte

Bytewert = Asc(wertstr)

Select Case Bytewert

    Case &H20 : Portb = 0
    Case &H30 : Portb = 126   ' 0
    Case &H31 : Portb = 12     ' 1 
' usw. einfach zu merken 0 ist &H30 
End Select

End
so gehts bei mir auch:
Code:
Select Case Wertstr

    Case " " : Portb = 0
    Case "0" : Portb = 126
    Case "1" : Portb = 12

End Select

End