填空题

在当前目录下有—个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。
Private Sub Command1_ Click()
Dim ch＄, ascii As Integer
Open "myfile.txt" For （） As #1
While Not EOF(1)
Line Input #1 ,ch
ascii=toascii(（）)
Print ascii
Wend
Close #1
End Sub
Private Function toascii(mystr＄)As Integer
n=0
Fork=1 To （）
n=n+ Asc(Mid(mystr,k,1))
Next k
toascii=n
End Function