Public Function DeleteInList(ByRef RefList() As String, ByVal Element As Long, _
  ByRef ListSize As Long)
 
    Dim i As Long
 
    If Element <> -1 And Element < ListSize Then
 
        For i = Element To ListSize - 2
            RefList(i) = RefList(i + 1)
        Next i
 
    End If
 
    ListSize = ListSize - 1
 
    ReDim Preserve RefList(ListSize - 1) As String
 
End Function

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)