Putz.. amigo... isso dá um algoritmo um pouco grande...
1) Vc deve carregar um array com os dados da string, usa o SPLIT() pra fazer isso...
Dim a() As String
a = Split(string, ";")
2) vc percorre os itens do array, montando a string (concatenando os itens) e ignora os itens q ja adicionou na string...
string = ""
for i = 0 to UBound(a)
If InStr(1, string, a(i)) = 0 Then
If Len(string) > 0 Then string = string & ";"
string = string & a
End If
Next i
Erase a
Eu acho q isso resolve seu problema...
Flw! t+
