Code: Select all
...
ReDim Preserve STRLETTERS(RC)
STRLETTERS(RC) = RIGA & "-" & COLONNA & "-" & Me.CGIORNO.Text
RC = RC + 1
....
Code: Select all
...
INDICE=RIGA & "-" & COLONNA & "-" & Me.CGIORNO.Text
Call REMOVE_ITEM(INDICE)...
Private Sub REMOVE_ITEM(INDICE)
Dim K As Integer
For K = LBound(STRLETTERS) To UBound(STRLETTERS)
If STRLETTERS(K) = INDICE Then
'[b]HERE CODE TO REMOVE ITEM INDICE FROM ARRAY[/b]
End If
Next K
End Sub