/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 vote385 views1 answer
Microsoft Flight Simulator.
BASIC
0 vote488 views1 answer
Visual basic how to dynamically change a button to bold
BASIC
0 vote437 views1 answer
How to capture link cefsharp
BASIC
0 vote419 views1 answer
Vb.net printing set page size
BASIC
0 vote438 views1 answer
Theme leaf concatenate
BASIC
0 vote391 views1 answer
Dos assign command output to variable (when output is of multiple lines)
BASIC
0 vote420 views10 answers
Convert c program to c++ online
BASIC
0 vote509 views1 answer
Curl with basic auth
BASIC
0 vote507 views1 answer
Basic authentication bash
BASIC
0 vote414 views2 answers
Get next/previous record
BASIC