String Functions

Private Function RetMeta(ByVal MetaStr As String) As String
Dim arInfo() As String
arInfo = MetaStr.Split(",")
Dim distinctStr As New ArrayList
For j As Integer = 0 To arInfo.GetUpperBound(0)
If Not distinctStr.Contains(arInfo(j)) Then
distinctStr.Add(arInfo(j))
End If
Next
Dim tmp As String = Nothing
For i As Integer = 0 To distinctStr.Count - 1
tmp = tmp & distinctStr.Item(i) & ","
Next
tmp = tmp.TrimEnd(",")
Return tmp
End Function