/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 vote150 views1 answer
Remove button selection outline visual basic
BASIC
0 vote154 views1 answer
Vb.net printing set page size
BASIC
0 vote159 views1 answer
Detailview with form mixing
BASIC
0 vote156 views6 answers
C++ to c converter online
BASIC
0 vote155 views1 answer
Script to add value of 2 coulms of grid and show result in 3rd column
BASIC
0 vote145 views1 answer
How to dynamically change the font size of a button visual basic
BASIC
-1 vote147 views4 answers
C++ code to c code converter
BASIC
0 vote238 views1 answer
Loop inner fiter()
BASIC
0 vote221 views1 answer
How to remove characters from the end of a string visual basic
BASIC
0 vote154 views1 answer
Empno and marks html tables
BASIC