Denke mal, die Segmente a-g entsprechen den Bits in der Tabelle.
Vermutlich
&H01 -> a
&H02 -> b
...
&H40 -> g
Diese Tabellen sind meist im Datenblatt. Aber 7 Segment von 0-F bringst du auch so zusammen.

Ein Tip, statt der "if"-Orgie
Code:
Sub Wandeln_lcd 
    Wert = lookup(A, Tabelle)
End Sub 

Tabelle:
    DATA   &H3F , &H06 , &H5B , ......., &H71

Ich muss mir erst das Datasheet vom SAA anschauen, von wegen Protokoll.