/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 vote391 views2 answers
Cmo ler o dado de um cliente ftp usando vbnet
BASIC
0 vote374 views6 answers
C++ to c converter online
BASIC
0 vote358 views1 answer
Dos assign command output to variable (when output is a single line)
BASIC
0 vote374 views1 answer
How to capture link cefsharp
BASIC
0 vote436 views1 answer
Visual basic how to create a dynamic button
BASIC
0 vote341 views2 answers
Ex:c programming
BASIC
0 vote363 views1 answer
Theme leaf concatenate
BASIC
0 vote327 views2 answers
Change c code to c++ online
BASIC
0 vote369 views1 answer
How to open d drive using conda prompt
BASIC
0 vote340 views1 answer
How to close form in vb.net
BASIC