/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 vote416 views1 answer
Floppy disk drive +arduino
BASIC
0 vote413 views1 answer
Console.OutputEncoding c#
BASIC
0 vote465 views1 answer
Visual basic constructor
BASIC
0 vote409 views1 answer
How to capture link cefsharp
BASIC
0 vote397 views4 answers
Online c++ to c converter
BASIC
0 vote370 views1 answer
Como colocar aspas duplas em vbnet
BASIC
0 vote435 views10 answers
Convert c++ code to c online
BASIC
2 votes436 views1 answer
How to send basic auth using fetch
BASIC
0 vote406 views1 answer
Theme leaf concatenate
BASIC
-1 vote377 views4 answers
C++ code to c code converter
BASIC