Public Function Bin2BoolArray(ByVal Bin As String, Optional ByVal Lenght As _
  Integer = 0) As Boolean()
        If Lenght = 0 Then Lenght = Bin.Length
        Dim RetVal(Lenght - 1) As Boolean
        Dim i As Integer = 0
        For Each c As Char In Bin
            RetVal(i) = c = "1"
            i += 1
        Next
        Return RetVal
    End Function

Public Sub AddLog(ByVal Text As String)
            LogText &= Format(Now, "HH:mm:ss.fff") & "   " & Text & vbCrLf
            If chkAutoScroll.IsChecked Then
                rtbLogs.Text = LogText
                rtbLogs.ScrollToEnd()
            End If
 
            Dim OperandEnum As IEnumerator = LogText.GetEnumerator
            Dim iLines As Integer = 0
            While OperandEnum.MoveNext
                If OperandEnum.Current.Equals(CChar(vbCrLf)) Then iLines += 1
            End While
 
            'ab der 1500. Zeile beginnen abzuschneiden
            If iLines > 1500 Then
                LogText = LogText.Remove(0, LogText.IndexOf(vbCrLf) + 2)
            End If
    End Sub