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