代码如下
Sub test()
Dim i As Integer
Dim str8Hex As String
i = 10
MsgBox i
str8Hex = Right("0000000" & Hex(i),8)
MsgBox str8Hex
End Sub