Private Function CleanArray(ByVal srcArray() As String) As String()
        Dim list As New List(Of String)
        For Each itm As String In srcArray
            If Not list.Contains(itm) Then list.Add(itm)
        Next
        Return list.ToArray
    End Function