Closes all open files and writes the contents of all file buffers to the harddisk.Reset Statement diagramResetSub ExampleResetOn Error GoTo ErrorHandler Dim iNumber As Integer Dim iCount As Integer Dim sLine As String Dim aFile As String aFile = "C:\Users\ThisUser\data.txt" iNumber = Freefile Open aFile For Output As #iNumber Print #iNumber, "This is a new line of text" Close #iNumber iNumber = Freefile Open aFile For Input As iNumber For iCount = 1 To 5 Line Input #iNumber, sLine If sLine <>"" Then Rem End If Next iCount Close #iNumber Exit SubErrorHandler: Reset MsgBox "All files will be closed", 0, "Error"End Sub