/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 vote426 views1 answer
How to open d drive using conda prompt
BASIC
2 votes456 views1 answer
Mongodb command remove by _id
BASIC
0 vote407 views4 answers
Online c++ to c converter
BASIC
0 vote397 views1 answer
Vb.net printing set page size
BASIC
0 vote386 views1 answer
Whats up
BASIC
0 vote417 views1 answer
Dos assign command output to variable (when output is a single line)
BASIC
0 vote404 views1 answer
How to dynamically change the font size of a button visual basic
BASIC
0 vote392 views3 answers
JWT EM VBNET
BASIC
0 vote393 views1 answer
What to include in basic C
BASIC
0 vote398 views1 answer
Excel vba chck that the range is empty
BASIC