/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 vote425 views1 answer
Loop inner fiter()
BASIC
0 vote410 views1 answer
Visual basic how to dynamically change a button to bold
BASIC
1 vote393 views4 answers
C code to java converter
BASIC
0 vote372 views1 answer
Basic murmur hash function
BASIC
0 vote363 views1 answer
Xolo themeforest
BASIC
0 vote334 views1 answer
Script to add value of 2 coulms of grid and show result in 3rd column
BASIC
0 vote373 views1 answer
Basic authentication in REST api Dajngo
BASIC
0 vote348 views1 answer
Wussup
BASIC
0 vote402 views1 answer
Hello world in basic
BASIC
0 vote403 views5 answers
Dos assign carriage return to variable
BASIC