/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 vote40 views1 answer
NÃO CONSIGO MANDAR UM POST EM VBNET USANDO POSTMAN
BASIC
0 vote52 views1 answer
Hello world in basic
BASIC
0 vote44 views1 answer
Resttemplate authorization basic
BASIC
0 vote46 views2 answers
Python3 base64 encode basic authentication
BASIC
0 vote45 views1 answer
Empno and marks html tables
BASIC
1 vote55 views1 answer
Itextsharp landscape a4
BASIC
0 vote39 views3 answers
JWT EM VBNET
BASIC
0 vote42 views1 answer
How to close form in vb.net
BASIC
0 vote37 views1 answer
Add user to multiple groups ubuntu
BASIC
0 vote40 views1 answer
Watch starward ascii command
BASIC