/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 vote317 views1 answer
Remove button selection outline visual basic
BASIC
0 vote378 views1 answer
Add firefox
BASIC
0 vote386 views1 answer
Curl with basic auth
BASIC
0 vote330 views1 answer
What to include in basic C
BASIC
0 vote316 views1 answer
Split to arraylist vb.net
BASIC
0 vote325 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
2 votes388 views1 answer
Vb string to int32
BASIC
0 vote338 views1 answer
Split to list vb.net
BASIC
0 vote359 views1 answer
Floppy disk drive +arduino
BASIC
0 vote333 views1 answer
Visual basic non modal message box
BASIC