hjælp ved chtB fejl

Jeg får følgende fejl ved kærsel af mit script:
Function or method call not implemented: 'ChrB'??

Er denne funktion udgået og hvad kan evt afhjælpe den??
koden:
Function getString(StringBin)
  Dim intCount,get1Byte
  getString =""
  For intCount = 1 to LenB(StringBin)
      get1Byte = MidB(StringBin,intCount,1)
    getString = getString & chr(AscB(get1Byte))
  Next
End Function