Sub GetXMLField(XML As String, RecordID As String, FieldName As String) As String
Dim Pattern As String = "<NS2.*?id=""" & RecordID & """.*?<" & FieldName & " .*?>(.*?)</" & FieldName & ">"
Dim XMLMatcher As Matcher = Regex.Matcher(Pattern, XML.Replace(Chr(10), ""))
If XMLMatcher.Find Then
Return XMLMatcher.Group(1)
End If
Return "XML record " & RecordID & " field " & FieldName & " not found" 'or whatever you prefer to signify not found
End Sub