编写一个将二进制字符串转换成十进制数的函数

dim R as string ,L as long'R是二进制数，L是十进制数
dim I as integer
for i=1 to len(r)
l=l+val(mid(r,i,1))^(len(r)-1)
next i
print L

Option Explicit
Dim sHex As String
Dim sBin As String
Dim sj As String
Public Function BinToHex(ByVal sBin As String) As String
Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"
Dim i As Integer, sHex As String
sBin = String(3 - (Len(sBin) - 1) Mod 4, "0") & sBin
For i = 1 To Len(sBin) Step 4
sHex = sHex & Mid(s2, InStr(1, s1, Mid(sBin, i, 4)), 1)
Next i
BinToHex = sHex
sj = sHex
End Function

Private Sub Command1_Click()
sBin = Text1
BinToHex (sBin)
Text2 = sj
Text3 = Val("&H" & sj & "&") 'Long
Text4 = Val("&H" & sj) 'Integer
End Sub

Private Sub Form_Load()
Text1