Dim r As Regex
                                Dim s As String
                                Dim m As Match
                                '
                                ' para extraer links:
                                s = TextBox5.Text
                                r = New Regex("[^,;\s]+@[^,;\s]+")

                                Dim mc As MatchCollection = r.Matches(s)

                                If mc.Count > 0 Then
                                    For Each m In mc

                                    Next
                                End If

  Dim r As Regex
        Dim s As String
        Dim m As Match
        '
        ' para extraer links:
        s = textbox5.text
        r = New Regex("[^,;\s]+@[^,;\s]+")

        Dim mc As MatchCollection = r.Matches(s)

        If mc.Count > 0 Then
            MsgBox("¡BINGO! hay {0} coincidencias", mc.Count)
          
        Else
            MsgBox("¡Sin coincidencias!")
        End If

'la parte del código es la que se aseugra de haberlo encontrado:

 If InStr(Titulo_Win, El_titulo) <> 0 Then

 msgbox ("hola mundo")