/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 vote405 views1 answer
Loop inner fiter()
BASIC
0 vote226 views1 answer
How to open d drive using conda prompt
BASIC
6 votes263 views1 answer
Vs code unindent
BASIC
0 vote203 views1 answer
Pmatplotlib draw a square with a magenta dotted line and pentagon markersython matplotlib overlaped
BASIC
0 vote199 views2 answers
Python3 base64 encode basic authentication
BASIC
0 vote387 views2 answers
Cmd cant change directory
BASIC
0 vote397 views1 answer
Curl with basic auth
BASIC
1 vote420 views2 answers
Thymeleaf radio button
BASIC
1 vote411 views1 answer
How to make vbs error message box
BASIC
0 vote204 views1 answer
Xolo themeforest
BASIC