Class main
 
    Public writer As StreamWriter = Nothing
    Public reader As StreamReader = Nothing
 
    Public Function read(ByVal file_to_read As String) As String
        Try
            reader = File.OpenText(file_to_read)
            Dim stream As String = reader.Read
            Return stream
        Catch ex As Exception
            Return -1
        Finally
            reader.Close()
        End Try
 
    End Function
 
    Public Sub write(ByVal msg As String, ByVal file_to_write As String)
        Try
            writer = File.CreateText(file_to_write)
            writer.Write(msg)
 
        Catch ex As Exception
 
        Finally
            writer.Close()
        End Try
    End Sub
 
End class