/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 vote247 views2 answers
Python3 base64 encode basic authentication
BASIC
0 vote272 views1 answer
Basic authentication in REST api Dajngo
BASIC
0 vote236 views1 answer
Powershell how to removve only empty direcoties
BASIC
0 vote278 views1 answer
New list VB
BASIC
0 vote269 views1 answer
Basic murmur hash function
BASIC
2 votes274 views1 answer
How to send basic auth using fetch
BASIC
0 vote239 views1 answer
How to round a number in visual basic
BASIC
0 vote234 views1 answer
How to dynamically change the font size of a button visual basic
BASIC
0 vote244 views1 answer
Remove button selection outline visual basic
BASIC
0 vote243 views1 answer
Como colocar aspas duplas em vbnet
BASIC