vba 程序错误 求高手赐教 帮我改正确

Sub Hide()
Dim a, 1, i As Integer 错误
Dim ch, b, c As String
Dim chl, ch2 As Byte
b=InputBox("请输入密钥(三位数)'，'请输入密钥') 错误
Selection.HomeKey Unit:=wdStory '将文档中的插入点移到文档首部
Selection.MoveDown Unit:=wdLine, Count:=Val(Mid(b, 1, 1))
Selection.MoveRight Unit:=wdCharacter, Count:=Val(Mid(b, 2, 1))
Selection.EndKey Unit: wdStory , Extend:=wdExtend
1=Len (Selection) 错误
1=Int (1/Val (Mid (b, 3, 1))/8) 错误
c = Str(1)
Selection.MoveLeft Unit:=wdCharacter, Count:二1 错误
ch=InputBox('当前文本可隐藏'十。+'个字母，超出部分将会丢失。请输入需隐藏
英文信息 '，'请输入需隐藏信息') 错误
'选择信息隐藏的位置，此处为文档的第三者'
For a = 1 To Len(ch)
m = 128
chl二Asc (Mid(ch, a, 1))
For i二1 To 8'每次循环隐藏一位二进制位， 错误
Selection.MoveLeft Unit: wdC

VBA高手赐教一下～ 求VBA 高手解答！ 求高手赐教c语言编译错误 高手赐教，请问这个VB程序有什么错误？ VB和VBA程序问题,高手请进 为什么瑞星升级程序错误？请赐教~ 求高手赐教 跪求高手赐教~~~ 拜求高手,赐教! 求英文翻译 高手赐教！~