编写一VB程序，把十进数转换为2~16任意进制数

Private Sub cmdbin2hex_Click()
txthex.Text = Bin2Hex(txtbinary.Text)
End Sub
Private Sub cmddec2bin_Click()
If IsNumeric(txtdec2bin.Text) Then
txtdec2bin2.Text = Dec2Bin(txtdec2bin.Text)
End If
End Sub
Private Sub cmdDecHex_Click()
If IsNumeric(txtDecimal.Text) Then
txtdechex.Text = Hex(CDbl(txtDecimal.Text))
Else
MsgBox "不是有效的数。", vbCritical
End If
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdhex2bin_Click()
txtbinary2.Text = Hex2Bin(txthex2.Text)
End Sub
Private Sub cmdhexdec_Click()
txtdec2.Text = CStr(Hex2Dec(txthexdec.Text))
End Sub
Function Bin2Dec(InputData As String) As Double
'二进制转十进制
Dim DecOut As Double
Dim I As Integer
Dim LenBin As Double
Dim JOne As String
LenBin = Len(InputData) '二进制位数长度