Как сделать допустимое регулярное выражение

---

как мне быть конкретным только для gmail или yahoo email id
заканчивается на gmail.com или yahoo.com или yahoo.co.in

Public Function ValidEmail(ByVal Email As String, ByRef invalid As String, ByRef textbox As TextBox) As String


        Dim pattern As String = "([0-9a-zA-Z\-_]*@)gmail.com" ????


        Dim match As System.Text.RegularExpressions.Match = Regex.Match(Email.Trim(), pattern, RegexOptions.IgnoreCase)

        If (match.Success) Then
            'MsgBox("Valid email id")
            Return Email
        Else
            invalid = invalid & Email & Environment.NewLine
  'MsgBox("Invalid email id")
        End If
        Return Nothing

    End Function

Что я уже пробовал:

как мне быть конкретным только для gmail или yahoo email id
заканчивается на gmail.com или yahoo.com или yahoo.co.in

---