/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

1 vote269 views1 answer
Itextsharp landscape a4
BASIC
0 vote205 views2 answers
Change c code to c++ online
BASIC
2 votes272 views1 answer
Vb string to int32
BASIC
0 vote256 views5 answers
Dos assign carriage return to variable
BASIC
0 vote262 views1 answer
Visual basic how to dynamically change a button to bold
BASIC
0 vote210 views1 answer
Whats up
BASIC
0 vote202 views1 answer
Microsoft Flight Simulator.
BASIC
0 vote215 views1 answer
Visual basic get mouse position
BASIC
0 vote211 views1 answer
New list with inline elements vb
BASIC
0 vote217 views1 answer
API Key Authentication, Basic , Pasword Grant, Client Credentials
BASIC