Public Function RemoveDuplicates(ByVal text As String) As String
    Dim Result As String = ""
    Dim noDupsArrList As New ArrayList()
    Dim items() As String = Split(text, vbNewLine)

    For i As Integer = 0 To items.Length - 1
      If Not noDupsArrList.Contains(items(i).Trim()) Then
        noDupsArrList.Add(items(i).Trim())
      End If
    Next

    Dim uniqueItems As String() = New String(noDupsArrList.Count - 1) {}
    noDupsArrList.CopyTo(uniqueItems)
    For i = 0 To uniqueItems.Count - 1
      Result &= uniqueItems(i) & vbNewLine
    Next

    Return Result.Trim
  End Function