/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 vote250 views1 answer
Watch starward ascii command
BASIC
0 vote295 views1 answer
How to remove characters from the end of a string visual basic
BASIC
0 vote268 views1 answer
Visual basic non modal message box
BASIC
0 vote347 views1 answer
Visual basic how to create a dynamic button
BASIC
0 vote309 views2 answers
Cmd cant change directory
BASIC
0 vote304 views1 answer
Visual basic constructor
BASIC
0 vote245 views2 answers
Change c code to c++ online
BASIC
0 vote247 views1 answer
Dos assign command output to variable (when output is of multiple lines)
BASIC
0 vote268 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
0 vote278 views2 answers
Get unique random number in vb.net
BASIC