txtFile.Text = System.IO.File.ReadAllText( _
      My.Computer.FileSystem.SpecialDirectories.Desktop & "\test.txt")
    Dim exitcase As Boolean = False
    While exitcase = False
      Dim sItem As String
      Dim sVorne As String = Split(Strings.Left(txtFile.Text, InStr( _
        txtFile.Text, "@")), Space(1))(UBound(Split(Strings.Left(txtFile.Text, _
        InStr(txtFile.Text, "@")), Space(1))))
      Dim sHinten As String = Split(Strings.Right(txtFile.Text, Len( _
      txtFile.Text) - InStr(txtFile.Text, "@")), Space(1))(0)
      sItem = sVorne & sHinten
      If InStr(sItem, "@") > 0 And InStr(sItem, ".") > 0 Then
        lstMails.Items.Add(sItem)
      End If
      txtFile.Text = Replace(txtFile.Text, sItem, "")
      If sItem = "" Then exitcase = True
    End While