/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 vote219 views1 answer
Powershell how to removve only empty direcoties
BASIC
1 vote415 views1 answer
The terminal process failed to launch
BASIC
0 vote446 views1 answer
Basic latex document
BASIC
0 vote207 views1 answer
Watch starward ascii command
BASIC
1 vote399 views1 answer
How to add basic authentication on haproxy backend server
BASIC
0 vote217 views1 answer
Como colocar aspas duplas em vbnet
BASIC
0 vote222 views1 answer
Excel vba chck that the range is empty
BASIC
0 vote219 views1 answer
How to round a number in visual basic
BASIC
0 vote220 views1 answer
Dos assign command output to variable (when output is a single line)
BASIC
-1 vote205 views4 answers
C++ code to c code converter
BASIC