Private Shared Function ExtractEmailAdress(ByVal input As String) As Object
        Dim regex As New Regex("[A-Z0-9.]+@[A-Z0-9.-]+\.[A-Z]{2,4}", RegexOptions.IgnoreCase)
        Dim match As Match = regex.Match(input)
        Dim i As Integer = 0
        Dim tab(1000000) As String
        Do While match.Success
            tab(i) = match.Value
            'MsgBox(match.Value)
            match = match.NextMatch()
            i += 1
        Loop
        Return tab

    End Function

Private Shared Function ExtractEmailAdress(ByVal input As String) As List(Of String)
        Dim regex As New Regex("[A-Z0-9.]+@[A-Z0-9.-]+\.[A-Z]{2,4}", RegexOptions.IgnoreCase)
        Dim match As Match = regex.Match(input)
        Dim matches As List(Of String)
        Do While match.Success
            matches.Add(match.Value)
            'MsgBox(match.Value)
        Loop
        Return matches

    End Function