VBScript regex not working to grab status code : <p>I am getting a no match with the below VBScript.  Is something off in my code?</p>

<p><strong>Test</strong></p>

<pre><code>Error Type: SMTP[nl] Remote server (166.216.149.129) issued an error.[nl] hMailServer sent: RCPT TO:&lt;8583390609@txt.att.net&gt;[nl] Remote server replied: 550 5.1.1 &lt;8583390609@txt.att.net&gt; recipient does not exist here.[nl]
</code></pre>

<p><strong>Pattern</strong></p>

<pre><code>^.*Remote server replied: ([0-9]{3}).*$
</code></pre>

<p><strong>Logging</strong></p>

<pre><code>3544    "2019-05-06 23:09:51.609"   "Running" 
3544    "2019-05-06 23:09:51.609"   "Error Type: SMTP[nl] Remote server (166.216.149.129) issued an error.[nl] hMailServer sent: RCPT TO:&lt;8583390609@txt.att.net&gt;[nl] Remote server replied: 550 5.1.1 &lt;8583390609@txt.att.net&gt; recipient does not exist here.[nl]" 
3544    "2019-05-06 23:09:51.609"   "No Match"
</code></pre>

<p><strong>VBScript</strong></p>

<pre><code>Dim regex, matches, match, strResult

    EventLog.Write("Running")
    EventLog.Write(sErrorMessage)

    Set regex = New RegExp
    regex.IgnoreCase = True
    regex.Pattern = "^.*Remote server replied: ([0-9]{3}).*$"

    Set matches = regex.Execute(sErrorMessage)

    If matches.Count &gt;= 1 Then
            Set match = matches(0)
            If match.SubMatches.Count &gt;= 1 Then
                strResult = match.SubMatches(0)
            EventLog.Write(strResult)
            Else
EventLog.Write("NO SUBMATCHES")
                strResult = ""
                exit sub
            End If
    Else
EventLog.Write("No Match")
            strResult = ""
            exit sub
    End If
</code></pre>
