字节数据格式（VB）

如果只是想在显示时得到01的效果，可以这样：

Private Sub Command1_Click()
Dim n As Byte
n = Val(InputBox("请输入一个0到15的数字"))
MsgBox "转换为带前导0的十六进制数：" & Right("0" & Hex(n), 2)
End Sub

这样 0-15的数字就会显示为：
00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F

记得VB里面没有专门的函数那么做，也可能是我没有找到
用代码转换一下
用字符串表示
A ：十六进制数据
B：字符串

B=Hex（A）’将十六进制转化为字符串

方法一：
B=Right("0" & B, 2) ’如果B是一个字符则在前面加0，如果是两个则不取0
’right函数，从字符串右边取指定位数的字符

方法二：
B = IIf(Len(B) < 2, "0" & B, B)

当然B是字符串类型，如果还要用16进制的数，可以用的时候再转化回去
A = Val("&H" & B) ’将字符串B转化为整形，
’Val函数：将一个数据行变量转换成数字长整型变量

具体代码根据实际的需要写吧，希望对你有帮助