读取ini字符出错

Question

Private Sub Command1_Click()
Dim A As Long
A = WritePrivateProfileString("aa", "bb", Text1.Text, App.Path & "\123.INI")
If A = 0 Then MsgBox ("写文件时出错")
End SubPrivate Sub Command2_Click()
Dim Result As Long
Dim BufferStr As String * 255
Result = GetPrivateProfileString("aa", "bb", "", BufferStr, Len(BufferStr), App.Path & "\123.INI")
If Result = 0 Then
GetINIstr = ""
Else
GetINIstr = Left(BufferStr, Result)
End If
End Function
End Sub点击COMMAND2的时候出错，提示缺少END SUB
不知道是怎么搞得

Answer 1

End Function 一句不要
读出来的是，长度了

Answer 2

http://www.m5home.com/bbs/dispbbs.asp?boardID=10&ID=452&page=1

Answer 3

里面都没有用到函数,End Function从何而来啊,应该是多了这句的缘故

Answer 4

就是，把command2的End Function删了试试