Отображение строк файла с 50-й строки - VB

Option Explicit
 
Private Sub Command4_Click()
Dim MyFile As Long
Dim fil$, arr, tx, i
fil = App.Path & "\test.txt"
        If Len(Dir(fil)) = 0 Then 'нет файла
                Open fil For Output As 1
                For i = 1 To 29
                    Print #1, ""
                Next i
                Print #1, Val(Text4.Text) * 5 + 100
                Close #1
        Else
                arr = Split(CreateObject("Scripting.FileSystemObject").Getfile(fil$).OpenasTextStream(1).ReadAll, vbNewLine)
                 Open fil For Output As 1
                    If UBound(arr) > 28 Then
                           For i = 0 To UBound(arr)
                                  Print #1, arr(i)
                                  If i = 28 Then Print #1, Val(Text4.Text) * 5 + 100
                           Next i
                    Else
                           For i = 0 To UBound(arr) - 1
                                  Print #1, arr(i)
                           Next i
                           
                           For i = UBound(arr) To 28
                               Print #1, ""
                           Next i
                           
                           Print #1, Val(Text4.Text) * 5 + 100
                    End If
                 Close #1
        End If
End Sub