Nathan455's notepad

  Try
            TextBox1.Clear()
            Dim OpenFile As New OpenFileDialog With {.Title = "Opening a file..", .FileName = "", .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"}
            If Not OpenFile.ShowDialog = Windows.Forms.DialogResult.Cancel Then
                Dim ReadTheFile As New IO.StreamReader(OpenFile.FileName)
                TextBox1.Text = ReadTheFile.ReadToEnd
                ReadTheFile.Close()
            End If
            MsgBox("FILE OPENED!", MsgBoxStyle.Information, "Information")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try

    Try
            Dim SaveFile As New SaveFileDialog With {.Title = "Saving a file..", .FileName = "", .Filter = "Text Files (*.txt)|*.txt|All files (*.*)|*.*"}
            If Not SaveFile.ShowDialog = Windows.Forms.DialogResult.Cancel Then
                Dim SavingTheFile As New IO.StreamWriter(SaveFile.FileName)
                SavingTheFile.Write(TextBox1.Text)
                SavingTheFile.Close()
            End If

            MsgBox("FILE SAVED!", MsgBoxStyle.Information, "Information")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "ERROR")
        End Try