Format возвращает не то, что хотелось бы - VB

Function GUID_2_String(ID As UUID) As String
    On Error Resume Next
    GUID_2_String = "{" & Right$("0000000" & Hex(ID.Data1), 8) & _
        "-" & Right$("000" & Hex(ID.Data2), 4) & _
        "-" & Right$("000" & Hex(ID.Data3), 4) & _
        "-" & Right$("0" & Hex(ID.Data4(0)), 2) & Right$("0" & Hex(ID.Data4(1)), 2) & _
        "-" & Right$("0" & Hex(ID.Data4(2)), 2) & Right$("0" & Hex(ID.Data4(3)), 2) & _
        Right$("0" & Hex(ID.Data4(4)), 2) & Right$("0" & Hex(ID.Data4(5)), 2) & _
        Right$("0" & Hex(ID.Data4(6)), 2) & Right$("0" & Hex(ID.Data4(7)), 2) & "}"
End Function