求一个VB程序，有关除法运算的

Private Sub Command1_Click()
Form1.Show
Dim x As Integer, y As Integer, a As Integer
x = Val(InputBox("输入X的值"))
y = Val(InputBox("输入Y的值"))
z = Int(x / y) '因下面要计算16进制,此处直接取整
z1 = z
While z1 <> 0

a = z1 Mod 16
z1 = Int(z1 / 16)
If a = 10 Then
p$ = "A"
ElseIf a = 11 Then
p$ = "B"
ElseIf a = 12 Then
p$ = "C"
ElseIf a = 13 Then
p$ = "D"
ElseIf a = 14 Then
p$ = "E"
ElseIf a = 15 Then
p$ = "F"
Else
p$ = a
End If
str1$ = p$ + str1$
Wend
MsgBox str1$
End Sub