[SRC] Projeto tabela inacabado [VB6].

Alguien tiene la solución para completar este proyecto, tengo dificultad en el control y la eliminación de los elementos repetidos en la matriz.
This is a small table to enter data.
Someone please implement this code can not to allow repeated data are informed.
'array textbox
Private Sub Command1_Click()
    Dim o, f As Integer
    On Error Resume Next
    For o = 0 To 27
        If Len(Data(o)) < 7 Then
            Data(o).Text = ""
            Data(o).SetFocus
            ERRO1.Caption = "Field invalid."
            ERRO1.Visible = True
            Exit Sub
        End If
    Next o
'Objective check the fields and repeated and clear that the encounter.
End Sub
[SRC] http://www.sendspace.com/file/psdd54
Thanks!!!