Stell dich nicht so an...

Code:
Led_port Alias Portb                    ' Port An Den Die Segmente "hängen"
Dim Wer As String * 1                   ' String einzelnes Zeichen der Zahl

' Port-Pin zu 7-segement - g f e d c b a

Select Case Wert
   Case "0" : Led_port = &B00111111     ' hier die Port-Pins ansteuern,
   Case "1" : Led_port = &B00000110     ' welche das Segment ansteuern soll
   Case "2" : Led_port = &B01011011
   Case "3" : Led_port = &B01001111
   Case "4" : Led_port = &B01100110
   Case "5" : Led_port = &B01101100
   Case "6" : Led_port = &B01111101
   Case "7" : Led_port = &B00000000
   Case "8" : Led_port = &B00000111
   Case "9" : Led_port = &B01101111
   Case Else Led_port = &B00000000
End Select