Private Sub txtSwWEBIp_Change()
        Dim arrWebIISLogfile() As String
 
        'in IIS-Logfile nach IP suchen und Zeilen anzeigen
        arrWebIISLogfile = Split(rtbWebIISLog.Text, vbCrLf)
        arrWebIISLogfileIp = Filter(arrWebIISLogfile, txtSwWEBIp.Text, True, _
          vbTextCompare)
        vararrWebIISLogfileIp = Join(arrWebIISLogfileIp, vbCrLf)
        txtWebFilteredIISLogfile.Text = vararrWebIISLogfileIp
End Sub