Public Class Form1
    Dim a
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    
        If a = 1 Then


            My.Computer.FileSystem.WriteAllText _
            ("memory.mem", _
             "Made With Digital Memory Box" & vbNewLine & "----------------" & vbNewLine & TB1.Text, True)
            a = 0

        Else

            My.Computer.FileSystem.WriteAllText _
            ("memory.mem", _
             vbNewLine & "----------------" & vbNewLine & TB1.Text, True)
        End If


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

            Dim fileReader As String
            fileReader = My.Computer.FileSystem.ReadAllText("memory.mem")





        Catch

            a = 1
        End Try
    End Sub
End Class

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim savem As New System.IO.StreamWriter("memory.mem", True)
            savem.Write(TB1.Text & vbCrLf)
            savem.Close()
            TB1.Text = ""
        Catch
        End Try
    End Sub
End Class

Public Class BoxRead

    Dim bla = 0
    Dim uppa, lowa
    Dim memz(9999) As String
    Dim txt
    Dim lastRandomMemory
    Dim RandomMemory
    Dim fileReader As String
    Public Function goo(ByVal Low As Long, _
               ByVal High As Long) As Long
        goo = Int((High - Low + 1) * Rnd()) + Low
    End Function
    Private Sub BoxRead_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            fileReader = My.Computer.FileSystem.ReadAllText("memory.mem")
        Catch
            MsgBox("No Memories Saved Yet :-(")
            End
        End Try
        Randomize()
        Dim v = Split(fileReader, vbCrLf)
        uppa = UBound(v, 1) - 1
        lowa = LBound(v, 1)
        For n = LBound(v, 1) To UBound(v, 1)
            txt = Trim$(v(n))
            If Len(txt) > 0 Then memz(n) = txt
        Next n
        TextBox1.Text = memz(bla)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        bla = bla + 1
        Try

            If bla > uppa Then
                bla = bla - 1
            Else
                TextBox1.Text = memz(bla)
            End If
        Catch
            bla = bla - 1
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bla = bla - 1
        Try
            TextBox1.Text = memz(bla)
        Catch
            bla = bla + 1
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Start:
        RandomMemory = goo(lowa, uppa)
        If RandomMemory = lastRandomMemory Then
            GoTo Start
        Else
            TextBox1.Text = memz(RandomMemory)
        End If

        lastRandomMemory = RandomMemory
        bla = RandomMemory
    End Sub
End Class