/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 vote429 views1 answer
Trollbox
BASIC
0 vote452 views1 answer
Floppy disk drive +arduino
BASIC
1 vote504 views1 answer
The terminal process failed to launch
BASIC
0 vote433 views1 answer
Empno and marks html tables
BASIC
0 vote443 views1 answer
How to close form in vb.net
BASIC
0 vote423 views1 answer
Random numbers visual basic
BASIC
0 vote443 views1 answer
How to remove characters from the end of a string visual basic
BASIC
0 vote453 views1 answer
Dos assign command output to variable (when output is a single line)
BASIC
0 vote419 views1 answer
Whatv are additional library files in c
BASIC
2 votes491 views1 answer
Mongodb command remove by _id
BASIC