/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 vote166 views1 answer
Visual basic excel freeze first row
BASIC
1 vote256 views1 answer
Itextsharp landscape a4
BASIC
6 votes124 views1 answer
Vs code unindent
BASIC
0 vote128 views1 answer
How to simulate tail in dos/cmd without tail
BASIC
0 vote176 views2 answers
Bash catch ctrl-c in a script
BASIC
0 vote167 views1 answer
How to dynamically change the font size of a button visual basic
BASIC
1 vote252 views2 answers
Tmux basic commands
BASIC
0 vote162 views1 answer
Random numbers visual basic
BASIC
0 vote270 views1 answer
Basic authentication bash
BASIC
0 vote249 views1 answer
Visual basic how to dynamically change a button to bold
BASIC