Private Sub RemoveDups(ByRef TableData(,) As String) 'Use conversion document to set all dups equal Dim srdFile As New IO.StreamReader("S:\Parser_Data\VA_Conversion.txt") Dim Conversions() As String Dim tmpRead As String = srdFile.ReadLine Do Until srdFile.Peek = -1 'Fill conversions Conversions = tmpRead.Split(",") For i As Integer = 0 To Length - 1 For xi As Integer = 0 To Conversions.Length - 1 TableData(4, i).Replace(Conversions(xi), Conversions(0)) Next Next tmpRead = srdFile.ReadLine Loop srdFile.Close() 'Set RowType to -1 for dups... TableData(0, i) 'TableData(x, i) Where x = {1, 2, 3, 4} Dim LSub As String = "" Dim LHost As String = "" Dim LPort As String = "" Dim LNes As String = "" For i As Integer = 0 To Length - 1 'Find dup If TableData(1, i) = LSub Then If TableData(2, i) = LHost Then If TableData(3, i) = LPort Then If TableData(4, i) = LNes Then TableData(0, i) = -1 End If End If End If End If 'Set last checked LSub = TableData(1, i) LHost = TableData(2, i) LPort = TableData(3, i) LNes = TableData(4, i) Next End Sub 10997,10589,10297,10683 11039,13651,12255,10888,11039,11522,13651,12255,10888 13852,13640 11875,11060 13651,12255,10888 11808,11790 12065,12054,12055,12052 12209,12205 18028,18023 20008,20004 19401,18682,18490 20005,20299 19999,20006 16324,18020 18679,18026 19699,21626 20928,20908 24022,23931,12244,15926,25124,25370,16226,15821,18480 25347,25123,24761,11506,12226,17637,20395,21556 20158,21079 12044,15789,15395,17254,11496,14278,20184,18558,21140 22312,10080 22511,22510 25349,24701,23930,23633,22369,22095,21627,21225,20842 16199,16204,20826,21738,21733,22921,20973