Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("")
        ComboBox1.Items.Add("Status: Start Projektierung")
        ComboBox1.Items.Add("Status: 20 %")
        ComboBox1.Items.Add("Status: 40 %")
        ComboBox1.Items.Add("Status: 60 %")
        ComboBox1.Items.Add("Status: 80 %")
        ComboBox1.Items.Add("Status: Ende Projekttierung")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        schreiben()
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        schreiben()
 
    End Sub
 
    Private Sub schreiben()
 
        Dim sw As New StreamWriter("U:\Test2.txt")
        sw.WriteLine(ComboBox1.Text)
        sw.Close()
 
    End Sub
 
End Class

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Timer1.Interval = 5000
        Timer1.Enabled = True
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        auslesen()
 
    End Sub
 
 
    Private Sub auslesen()
 
        Dim TempString() As String
        Dim Zaehler As Integer = 0
 
        TempString = System.IO.File.ReadAllLines("U:\Test2.txt")
 
        While (Zaehler <= TempString.Length - 1)
 
            If TempString(Zaehler).StartsWith("Status:") Then
                'MsgBox(TempString(Zaehler))
                TextBox1.Text = TempString(Zaehler)
            End If
 
            Zaehler += 1
 
        End While
 
    End Sub
 
End Class