Visual Basic - como hago la transformacion de binario a decimal

me pueden ayudar con un programa que tengo que transformar un numero bianrio a decimal antes del lunes porfa , este codigo tengo por ahora porfavor ayudenme
Dim NUM2 As Integer
Dim factor As Integer
factor = factor + 1

If ValNUM = 0 Then
factor = 0
NUM = NUM * factor + factor
Text2.Text = NUM
Else
If ValNUM = 1 Then
NUM = NUM * factor + factor
Text2.Text = NUM
End If
End If

bye , gracias

Prueba con la función:
Public Function BinToDec(EnBinario As String) As Long
Dim Digito As Byte
Dim Sumando As Long

Sumando = 1
BinToDec = 0
For Digito = Len(EnBinario) To 1 Step -1
If Mid(EnBinario, Digito, 1) = "1" Then
BinToDec = BinToDec + Sumando
End If
Sumando = Sumando + Sumando
Next Digito

End Function