/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

2 votes385 views1 answer
Vb string to int32
BASIC
0 vote358 views1 answer
How to capture link cefsharp
BASIC
0 vote323 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
0 vote331 views1 answer
Visual basic non modal message box
BASIC
0 vote329 views1 answer
Whatv are additional library files in c
BASIC
0 vote375 views1 answer
Add firefox
BASIC
0 vote327 views10 answers
Convert c program to c++ online
BASIC
0 vote352 views2 answers
Bash catch ctrl-c in a script
BASIC
0 vote340 views1 answer
Theme leaf concatenate
BASIC
0 vote397 views1 answer
Basic authentication bash
BASIC