Imports System
Public Class Test
Public Shared Sub Main()
Dim testSource As String = "<table><tr><td>8172745</td><tr><td>8172745</td></table>"
Dim delimeter As String() = { "<tr>" }
Dim testArr As String() = _
testSource.Split(delimeter, StringSplitOptions.RemoveEmptyEntries)
For Each s As String In testArr
Console.WriteLine(s)
Next
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gdGVzdFNvdXJjZSBBcyBTdHJpbmcgPSAiPHRhYmxlPjx0cj48dGQ+ODE3Mjc0NTwvdGQ+PHRyPjx0ZD44MTcyNzQ1PC90ZD48L3RhYmxlPiIKCQlEaW0gZGVsaW1ldGVyIEFzIFN0cmluZygpID0geyAiPHRyPiIgfQoJCURpbSB0ZXN0QXJyIEFzIFN0cmluZygpID0gXwoJCQl0ZXN0U291cmNlLlNwbGl0KGRlbGltZXRlciwgU3RyaW5nU3BsaXRPcHRpb25zLlJlbW92ZUVtcHR5RW50cmllcykKICAgICAgICAKICAgICAgICBGb3IgRWFjaCBzIEFzIFN0cmluZyBJbiB0ZXN0QXJyCiAgICAgICAgCUNvbnNvbGUuV3JpdGVMaW5lKHMpCiAgICAgICAgTmV4dAoJRW5kIFN1YgpFbmQgQ2xhc3M=