Ach so:

Auf der Anzeige sollen auch negative Werte angezeicht werden können.
Also kommt noch der Code hinzu:

'negatives Vorzeichen setzen
If Portc = 2 Then
If Wert < 0 Then
Portb = 128 'Binär 1000 0000 -> Dezimal = 128 (nur Segment G)
End If
End If