/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 vote144 views1 answer
Xolo themeforest
BASIC
0 vote148 views2 answers
Bash catch ctrl-c in a script
BASIC
0 vote146 views3 answers
JWT EM VBNET
BASIC
0 vote215 views2 answers
Cmd cant change directory
BASIC
0 vote133 views1 answer
Visual basic get mouse position
BASIC
0 vote138 views1 answer
Split to arraylist vb.net
BASIC
0 vote132 views1 answer
Whats up
BASIC
0 vote222 views1 answer
Loop inner fiter()
BASIC
0 vote139 views1 answer
Sequnce function vb.net
BASIC
0 vote131 views1 answer
Add user to multiple groups ubuntu
BASIC