...
  Dim i, x As Integer
 
  For i = 0 To 4
    If Not ExistsName(Name(i)) Then
      NameSuch(x) = Name(i)
      x = x + 1
    End If
  Next i
  ...

Public Function ExistsName(Name As String) As Boolean
 
  Dim i As Integer
 
  ExistsName = False
 
  For i = 0 To 4
    If NameSuch(i) = Name Then
      ExistsName = True
      Exit Function
    End If
  Next i
 
End Function

  ...
  Dim strAllNames As String
  Dim i, x As Integer
 
  For i = 0 To 4
    If Not InStr(strAllNames, Name(i)) > 0 Then
      strAllNames = strAllNames & Name(i) & ";"
      NameSuch(x) = Name(i)
      x = x + 1
    End If
  Next i
  ...

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.