/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 vote196 views2 answers
Get next/previous record
BASIC
0 vote185 views1 answer
Powershell how to removve only empty direcoties
BASIC
0 vote178 views1 answer
Microsoft Flight Simulator.
BASIC
0 vote380 views2 answers
Cmo ler o dado de um cliente ftp usando vbnet
BASIC
0 vote185 views1 answer
Como colocar aspas duplas em vbnet
BASIC
0 vote214 views1 answer
Hello world in basic
BASIC
1 vote386 views1 answer
The terminal process failed to launch
BASIC
0 vote181 views1 answer
Visual basic non modal message box
BASIC
0 vote242 views5 answers
Dos assign carriage return to variable
BASIC
0 vote365 views2 answers
Cmd cant change directory
BASIC