/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

2 votes426 views1 answer
How to send basic auth using fetch
BASIC
0 vote375 views1 answer
Visual basic get mouse position
BASIC
0 vote378 views2 answers
Ex:c programming
BASIC
6 votes404 views1 answer
Vs code unindent
BASIC
0 vote379 views1 answer
Trollbox
BASIC
0 vote377 views1 answer
Vb.net printing set page size
BASIC
0 vote406 views1 answer
Floppy disk drive +arduino
BASIC
0 vote374 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
0 vote407 views2 answers
Dos/cmd equivalent to "head"
BASIC
0 vote447 views2 answers
Cmo ler o dado de um cliente ftp usando vbnet
BASIC