Public Class Form1
 
    Dim IncR As String 'Increase Code Runter
    Dim IncU As String 'Increase Code Hoch
    Dim AIncU As String 'Immer Hoch zählen ohne BTA
    Dim AIncR As String 'Immer Runter zählen ohne BTA
    Dim IncAl As String 'Hoch & Runter mit BTA
    Dim NL = vbNewLine 'Neue Zeile
 
    Dim bla As String ' Test Variable
 
 
 
    Private Sub IncM_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        '======================================================================
        IncR = bla & NL & _        '<======= Test Text schreiben (Variable: bla)
               "4A000000 80D51586" & NL & _
               "DE000000 80008180" & NL & _
               "A8000008 00000001" & NL & _
               "94010000 00000000" & NL & _
               "86000000 FFFFFFFF" & NL & _
               "94010000 00000000" & NL & _
               "E0000000 80008000" & NL

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        bla = "dddddddddd"
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
        bla = TextBox2.Text
End Sub