Dim dat() As Byte = IO.File.ReadAllBytes("DeineDatei")
Dim sb As New System.Text.StringBuilder
  For i As Int32 = 0 To dat.Length - 1
    If dat(i) > 32 Then
       sb.Append(Chr(dat(i)))
    End If
  Next
For Each s As String In sb.Replace("[slow]", ";"c).ToString.Split(";"c)
  If s.Contains("H2") Then
    ListBox1.Items.Add(s.Substring(s.IndexOf("H2") + 13))
  End If
Next