/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 vote151 views1 answer
How to open d drive using conda prompt
BASIC
1 vote209 views1 answer
The terminal process failed to launch
BASIC
0 vote116 views1 answer
How to dynamically change the font size of a button visual basic
BASIC
0 vote139 views1 answer
API Key Authentication, Basic , Pasword Grant, Client Credentials
BASIC
0 vote132 views2 answers
Change c code to c++ online
BASIC
0 vote76 views1 answer
How to simulate tail in dos/cmd without tail
BASIC
0 vote125 views1 answer
How to close form in vb.net
BASIC
0 vote126 views1 answer
Visual basic non modal message box
BASIC
0 vote229 views1 answer
Basic latex document
BASIC
0 vote134 views1 answer
Vb.net printing set page size
BASIC