急求！二进制与十进制的相互转换 最简易的VB程序代码

' 将二进制转化为十进制
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
End Function

' 将十进制转化为二进制
Public Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

Hex()返回十六进制
oct()返回八进制数
利用oct()来编写一个函数就可以了。写了一个如下：

Function tw(numten As Integer)
Dim n(10), num, i, result
num = Oct(numten)
For i = 0 To Len(num) - 1
n(i) = Mid(num, i + 1, 1)
'If i = 10 Then
'ReDim Preserve n(i + 1)
'End If
Select Case n(i)
Case "0"
n(i) = "000"
Case "1"
n(i) = "001"
Case "2"
n(i) = "010"
Case "3"
n