Simple Function To Simulate The Push Command, due to VB's limitations, This one is Specific To Strings. (Simple enough to modify for integers or variants, etc)

87 Views
Public Sub spush(ArrayName() As String, Element As String)
' /* Make Sure The Variable Passed Is An Array */
If IsArray(ArrayName) = False Then Exit Sub

' /* If We Get An Error Here, it's Probably Because the Array */
' /* is dimensioned with no values set, so just make the first element */
On Error GoTo make_it

' /* Allocate A New Array Slot */
ReDim Preserve ArrayName(UBound(ArrayName()) + 1)

' /* Set The Value Of The New Array Indice To Element */
ArrayName(UBound(ArrayName())) = Element

Exit Sub

' /* Code Will Only Jump Here "on error" */
make_it:
ReDim ArrayName(0)
ArrayName(0) = Element
End Sub
About the Author

Richter:
Die Monster! You don't belong in this world!

Dracula:
It was not by my hand, that I am once again given flesh. I was called
here by humans, who wish to pay me tribute!

Richter:
TRIBUTE! You steal men's souls and make them your slaves!

Dracula:
Perhaps the same could be said of all religions....

Richter:
Your words are as empty as your soul. Mankind ill needs a savior such as you!

Dracula:
What is a man?
*Throws A Wine-Filled Goblet*
A miserable little pile of secrets! But enough talk!
Have at you!