[code]Mi problema:

Pongo:

[code]

Call abrir_form ("Notepad")

Call abrir_form (texbox1.text)    'en el textbox pone  Notepad

  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")