Dim B1 As Byte, B2 As Byte, B3 As Byte
Dim LowNibble As Byte, HighNibble As Byte
 
' Zerlegen
B1 = &HAB
LowNibble = B1 And 15
HighNibble = B1 \ 16
 
' Zusammensetzen von Zahlen
B2 = LowNibble + 16 * HighNibble
 
' Zusammensetzen von Strings
Dim Low As String, High As String
 
Low = "7"
High = "F"
B3 = "&H" & High & Low

Gruss,

Zardoz