If sLine Like "*" & sSearch & "*" = True Then
      List2.AddItem AdrArray(1, i)
      i=i+1
End If

Da sprach eine Stimme aus dem Chaos und sagte:
Lacht und seit fr?hlich denn es k?nnte schlimmer kommen.
Wir lachten und waren fr?hlich und es kam schlimmer.