/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 vote239 views1 answer
Visual basic get mouse position
BASIC
0 vote245 views4 answers
Online c++ to c converter
BASIC
0 vote238 views1 answer
API Key Authentication, Basic , Pasword Grant, Client Credentials
BASIC
0 vote224 views1 answer
Script to add value of 2 coulms of grid and show result in 3rd column
BASIC
0 vote244 views1 answer
Random numbers visual basic
BASIC
0 vote269 views1 answer
How to capture link cefsharp
BASIC
0 vote241 views1 answer
Visual basic non modal message box
BASIC
0 vote241 views1 answer
Xolo themeforest
BASIC
0 vote279 views10 answers
Convert c++ code to c online
BASIC
0 vote242 views1 answer
Whatv are additional library files in c
BASIC