/BASIC/VBA Initialise/Initialize String/Number Array (not variant)

VBA Initialise/Initialize String/Number Array (not variant)

Sub UseStringArray()

    Dim sample() As String
    sample = StringArray("dog", "cat", "horse")

End Sub

Function StringArray(ParamArray ArgList())

    ReDim tempArray(UBound(ArgList)) As String
    For i = 0 To UBound(ArgList)
        tempArray(i) = ArgList(i)
    Next
    StringArray = tempArray

End Function

Source: stackoverflow.com

Similar codes

0 vote198 views1 answer
Microsoft Flight Simulator.
BASIC
0 vote221 views2 answers
Ex:c programming
BASIC
0 vote253 views1 answer
Visual basic how to create a dynamic button
BASIC
0 vote201 views1 answer
Whats up
BASIC
0 vote200 views2 answers
Python3 base64 encode basic authentication
BASIC
0 vote275 views1 answer
How to remove characters from the end of a string visual basic
BASIC
0 vote258 views5 answers
Dos assign carriage return to variable
BASIC
0 vote215 views2 answers
Get unique random number in vb.net
BASIC
1 vote395 views1 answer
Itextsharp landscape a4
BASIC
-1 vote196 views4 answers
C++ code to c code converter
BASIC