Convertitore da binario a decimale in VB6

[TrigunXX]

Cercati un algoritmo che faccia la conversione...io ho trovato queste ma non so se funzionano alla perfezione:

Private Function dectobin(n As Long) As String
  Dim q As Long, e As Integer, s As Integer
  q = 2 ^ e
  Do While q <= n
    If n And q Then
      s = s + 1
      dectobin = "1" & dectobin
    Else
      dectobin = "0" & dectobin
    End If
    e = e + 1: q = 2 ^ e
  Loop
  flagGo = s >= mint And s <= maxt
End Function

Private Function bintodec(s As String) As Long
  Dim n As Integer
  For n = Len(s) To 1 Step -1
  If Mid(s, n, 1) = "1" Then
    bintodec = bintodec + 2 ^ (n - 1)
  End If
  Next n
End Function