/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 vote196 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
0 vote189 views1 answer
Theme leaf concatenate
BASIC
1 vote377 views4 answers
C code to java converter
BASIC
0 vote199 views1 answer
Como colocar aspas duplas em vbnet
BASIC
1 vote384 views2 answers
Install chrome
BASIC
0 vote199 views1 answer
Xolo themeforest
BASIC
1 vote391 views1 answer
Itextsharp landscape a4
BASIC
0 vote253 views5 answers
Dos assign carriage return to variable
BASIC
0 vote212 views1 answer
New list VB
BASIC
0 vote194 views2 answers
Change c code to c++ online
BASIC