/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 vote241 views10 answers
Convert c++ code to c online
BASIC
0 vote187 views1 answer
Powershell how to removve only empty direcoties
BASIC
0 vote228 views1 answer
How to capture link cefsharp
BASIC
0 vote176 views1 answer
How to simulate tail in dos/cmd without tail
BASIC
0 vote202 views1 answer
Visual basic non modal message box
BASIC
0 vote205 views1 answer
Split to list vb.net
BASIC
0 vote211 views1 answer
Robocopy sync one way
BASIC
0 vote205 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
-1 vote188 views4 answers
C++ code to c code converter
BASIC
6 votes198 views1 answer
Vs code unindent
BASIC