/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 vote195 views1 answer
Visual basic how to determine if an array already contains an item
BASIC
0 vote198 views2 answers
Bash catch ctrl-c in a script
BASIC
0 vote208 views6 answers
C++ to c converter online
BASIC
0 vote196 views1 answer
Dos assign command output to variable (when output is a single line)
BASIC
1 vote382 views1 answer
Itextsharp landscape a4
BASIC
0 vote252 views1 answer
Wussup
BASIC
2 votes388 views1 answer
How to send basic auth using fetch
BASIC
0 vote181 views1 answer
Split to list vb.net
BASIC
2 votes373 views1 answer
Mongodb command remove by _id
BASIC
1 vote371 views1 answer
How to add basic authentication on haproxy backend server
BASIC