VB中十进制转换成十六进制的程序怎么写~

Private Sub Form_Load() n = Val(InputBox("请输入要转换的十进制数整数")) m = n x = "" :Y="" Do While n 0 a = n Mod 2 n = n \ 2 x = a & x Loop MsgBox m & "换成二进制数是：" & x Do While Len(X) Mod 4 0 X = &