Nun, genauso, nur sind es mehr "case"
Code:
      zehntel = zehntel AND &H0F    '  aus ascii wird  &H00-&H09

      select case einer 
      case 0:        'pin setzen für 0 
      case 1:        'pin setzen für 1 
      case 2:        'pin setzen für 2 
      case 3:        'pin setzen für 3 
........
      case 9:        'pin setzen für 9
      case else:    'pin setzen für was weiss der Teufel 
      end select 
Loop
da gibt es statt "case" was besseres, aber ich bin grad im Druck und kann dir das jetzt nicht aufschreiben