oldText = aktText
 
        Dim sr As New System.IO.StreamReader("all.txt", _
          System.Text.Encoding.Default)
        aktText = (sr.ReadToEnd)
        sr.Close()
 
        Dim LenOld As Integer
        LenOld = Len(oldText)
        TextBox1.Text = Mid$(aktText, LenOld + 1, Len(aktText))