[VB2005] "Cannot obtain value"

[Il Totem]

Sto usando le espressioni regolari per ottenere dati da un sorgente. Tuttavia quando inizia questa procedura il programma si blocca:

    Private Sub Replace(ByVal R As Regex)
        Dim Matches As MatchCollection

        Matches = R.Matches(txtCode.Text)

        '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        'Qui il programma di blocca, ma non dà nessun errore
        'Se si inserisci un breakpoint, tutti i membri di Matches
        'visualizzano l'etichetta "cannot obtain value"
        '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        Do While Matches.Count > 0
            Dim Str As String

E si verifica quello che è stato scritto in commento nel codice.
Qualcuno mi può aiutare?