Private Sub CommandButton1_Click()
Dim B() As Integer

A = Split(TextBox1.Text)

ReDim B(0 To UBound(A))
B(0) = A(0)
n = 0
For i = 1 To UBound(A)
    povt = 0
    For j = 0 To UBound(B)
        If A(i) = B(j) Then povt = 1
    Next j
    If povt <> 1 Then
        B(n + 1) = A(i)
        n = n + 1
    End If
Next i

Bstr = B(0)
For i = 1 To n
    Bstr = Bstr & ";" & B(i)
Next i

Label1.Caption = Bstr

End Sub