/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 vote180 views1 answer
Remove button selection outline visual basic
BASIC
0 vote192 views2 answers
Dos/cmd equivalent to "head"
BASIC
0 vote165 views1 answer
Random numbers visual basic
BASIC
0 vote245 views1 answer
How to remove characters from the end of a string visual basic
BASIC
0 vote169 views2 answers
Python3 base64 encode basic authentication
BASIC
0 vote174 views1 answer
Whatv are additional library files in c
BASIC
0 vote175 views1 answer
Visual basic how to determine if an array already contains an item
BASIC
0 vote175 views1 answer
JsonFileWrapper
BASIC
0 vote171 views1 answer
Sequnce function vb.net
BASIC
1 vote285 views1 answer
How to add basic authentication on haproxy backend server
BASIC