http://winofsql.jp/VA003334/asp051115161559.htm#ttl3

vbsのはあった。

　' バイナリ -> 内部コード
　For i = 1 To LenB( strBin )
　　c1 = AscB(MidB(strBin, i, 1))
　　if &H81 <= c1 and c1 <= &H9f or &He0 <= c1 and c1 <= &Hfc then
　　　i = i + 1
　　　c2 = AscB(MidB(strBin, i, 1))
　　　c1 = c1 * 16 * 16 + c2
　　end if
　　strVbs = strVbs & Chr(c1)
　Next

処理自体はこのぐらい。