Public Function Get_Gmails(ByVal sText As String) As Collection
    Dim cTemp           As New Collection
    Dim oRegExp         As Object
    Dim oMatch          As Object
    Dim oMatches        As Object
    Dim sPatern         As String
 
    '# Para evitar las referencias
    Set oRegExp = CreateObject("VBScript.RegExp")
 
    sPatern = "([\w\.-_]+@gmail\.com )" '# Quitando el maldito espacio del final
 
    With oRegExp
        .Pattern = sPatern
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(sText)
 
    For Each oMatch In oMatches
        cTemp.Add oMatch.Value
    Next
 
    Set Get_Gmails = cTemp
End Function
 
Private Sub Form_Load()
    Dim vItem               As Variant
    Dim sStringtoAnalyze    As String
 
    sStringtoAnalyze = "Hola, esto es un ejemplo mario.234@gmail.com para que veas que funciona mimamamemima_to2losdias@gmail.com"
    For Each vItem In Get_Gmails(sStringtoAnalyze)
        Debug.Print vItem
    Next
End Sub