计算机二级等级考试VB编程题，急求！

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3915
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   5715
   LinkTopic       =   "Form1"
   ScaleHeight     =   3915
   ScaleWidth      =   5715
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton C2 
      Caption         =   "计算保存"
      Height          =   375
      Left            =   3240
      TabIndex        =   2
      Top             =   3360
      Width           =   1575
   End
   Begin VB.TextBox Text1 
      Height          =   2895
      Left            =   480
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   120
      Width           =   4695
   End
   Begin VB.CommandButton C1 
      Caption         =   "读入数据"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   3360
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1

Private Sub C1_Click()
Dim sPath As String
Dim ii As Long
Dim sList() As String
Dim sTmp As String

sPath = App.Path & "\in.txt"
Open sPath For Input As #1
    sTmp = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1

sList = Split(sTmp, vbCrLf)

Text1.Text = ""
For ii = 1 To 100
    Text1.Text = Text1.Text & sList(ii) & vbCrLf
Next

End Sub

Sub CreateTxt()
Dim sPath As String
Dim ii As Long
Dim sLong As Long

sPath = App.Path & "\in.txt"
For ii = 1 To 100
    Randomize Time
    sLong = Int(Rnd() * 1000 + 1)
    Text1.Text = Text1.Text & sLong & vbCrLf
Next

Open sPath For Output As #1
    Print #1, Text1.Text
Close #1
End Sub

Private Sub Command1_Click()
CreateTxt
End Sub

Private Sub C2_Click()
Dim sTmp As String
Dim sList() As String
Dim ii As Long
Dim sLong As Long
Dim sPath As String

sTmp = Text1.Text
sList = Split(Text1.Text, vbCrLf)



For ii = 1 To 100
    If Val(sList(ii)) <= 700 Then
        sLong = sLong + Val(sList(ii))
    End If
Next

Text1.Text = sLong
sPath = App.Path & "\Out.txt"
Open sPath For Output As #1
    Print #1, Text1.Text
Close #1

End Sub


'保存为 Form1.frm