[RESOLVED] Regex assitence.

I cant seem to spot my regex miss take(always been poor at RX). Is only passing the first expression. I assume it's because i am passing both expressions with "text"

vb Code:

#Region "Regular Expressions"
        Private Shared ReadOnly SubjectPattern As String = "(?<=<s.*>)([\s\S]*)(?=</s>)"
        Private Shared ReadOnly SubjectMatch As New Regex(SubjectPattern, RegexOptions.IgnoreCase Or RegexOptions.Compiled)
        Private Shared ReadOnly MessagePattern As String = "(?<=<m.*>)([\s\S]*)(?=</m>)"
        Private Shared ReadOnly MessageMatch As New Regex(SubjectPattern, RegexOptions.IgnoreCase Or RegexOptions.Compiled)
#End Region
 
        Private Sub PrivateMessage(ByVal id As String, ByVal text As String)
            If Not IsInteger(id) Then
                WriteServer("Invalid ID")
                Exit Sub
            End If
 
            Dim subMatch As Match = SubjectMatch.Match(text)
            Dim msgMatch As Match = MessageMatch.Match(text)
            WriteServer(SubjectMatch.ToString)
            WriteServer(msgMatch.ToString)
 
        End Sub