Public Function spop(ArrayName() As String) as string
' /* Make Sure the Variable Passed Is An array */
If IsArray(ArrayName) = False Then spop = "not array"
 
' /* Get The Last Value In The Array */
RetVal = ArrayName(UBound(ArrayName()))
 
' /* Set The Last Element Of The Array To Nothing */
ArrayName(UBound(ArrayName())) = vbNullString
 
' /* Check If We Are Working With The Only Element In The Array */
If UBound(ArrayName()) = 0 Then
    ' /* If So, Remove The Array */
    Erase ArrayName()
Else
    ' /* Reset the size of the array to 1 less than it was */
    ReDim Preserve ArrayName(UBound(ArrayName()) - 1)
End If
 
' /* return The Value Of The last element of the array before we removed it */
spop = RetVal
 
End Function