Also schreibst du im Programm den String "1234" hin und möchtest den in &H1B umrechnen lassen, richtig?
Wenn der String immer 4 Stellen hat und nur Ziffern von 1 bis 4 enthält, dann kannst du es so machen:

Code:
Dim Schalter As String * 4
Dim Schalter_ovly(4) As Byte At Schalter Overlay   'Overlay Array enthält die ASCII Werte der Ziffern
Dim I As Byte
Dim Ziffer As Byte
Dim Ausgabe As Byte

Schalter = "1234"
Ausgabe = 0
For I = 1 To 4
   Ziffer = Schalter_ovly(i) - 49         'vom Ascii Wert 49 abziehen, damit wird aus einer 1 eine 0, aus der 2 eine 1 usw.
   Ausgabe = Ausgabe + Ziffer
   If I < 4 Then Shift Ausgabe, Left, 2   'um 2 bit weiterschieben
Next I