Function Hex2(Value) As String
Select Case TypeName(Value)
Case "Long": Hex2 = Hex(Value): If Len(Hex2) < 8 Then Hex2 = String(8 - Len(Hex2), "0") & Hex2
Case "Integer": Hex2 = Hex(Value): If Len(Hex2) < 4 Then Hex2 = String(4 - Len(Hex2), "0") & Hex2
Case "Byte": Hex2 = Hex(Value): If Len(Hex2) < 2 Then Hex2 = String(2 - Len(Hex2), "0") & Hex2
End Select
End Function