binært til decimal - konvertering

Hey.

Jeg benytter mig af en funktion til konvertering af binære tal til decimale tal. Det virker som det skal i min vb winforms solution, som jeg bruger til test, men når jeg benytter det på min -.asp, så kan siden ikke vises.

Error Type:
Microsoft VBScript compilation (0x800A0400)
Public Function BinaryToDecimal(ByVal Binary As String) As Long

min funktion:

Public Function BinaryToDecimal(ByVal Binary As String) As Long
  Dim n As Long
  Dim s As Long

  For s = 1 To Len(Binary)
    n = n + (Mid(Binary, Len(Binary) - s + 1, 1) * (2 ^ (s - 1)))
  Next s

  BinaryToDecimal = n
End Function

nogen gode forslag? :P