关于vb中打开已有文件作为密码输入时遇到的问题

[caonimabi]

Form_Load()
Dim a
Dim b
On Error GoTo sss
Open ( "c:\abc.abc ") For Input As #1
Input #1, b
Close #1
a = InputBox( "请输入密码! ")
If a < > b Then MsgBox "密码错误，您不能使用本软件！ ": End
Exit Sub
sss:
a = InputBox( "请建立密码! ")
Open ( "c:\abc.abc ") For Output As #2
Print #2, a
Close #2
MsgBox "建立密码成功! "

End Sub
上文是我编写的一个软件的加密部分，不知道为什么我建的c:\abc.abc里面的b是
19811020，不过当我下次输入19811020时，他却说密码错误，请学vb的高手帮我

[shaidanR]

Dim b As String

这样就可以了~