vbs脚本问题

本人抄下如下VBS源码，有注释，得好像不对。也不可用，有没有高手能帮我看看哪里出了问题？提示：“缺少")"”
如下：
Function bytetobin(m As Byte) As String '将字节型数据转换成八位二进

制字符串
Dim c$
c$ = ""
Do While m <> o
r = m Mod 2
m = m \ 2
c$ = r & c$
Loop
c$ = Right("00000000" & c$, 8)
bytetobin = c$
End Function
Function reverse(m As String) As String '将八位二进制字符串颠倒顺

序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) & x
Next i
reverse = x
End Function
Function bintobyte(m As String) As Byte '将八位二进制字符串换成

十进制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
bintobyte = z
End Function
Private Sub command1_click()
Dim x As Byte, i%, fname$

VBS脚本运行问题 一个VBS脚本问题 关于VBS脚本的问题? VBS脚本问题。采纳后加分 VBS 关于（按键精灵）脚本的遍写问题？ U盘出现找不到脚本问题k:/vbs winxp vbs关机脚本 求一脚本~~~~ VBS 什么是VBS脚本？ 求vbs脚本