Just made this, so why not share it.
Code:Private Sub Form_Load() Dim sArr1(0) As String Dim sArr2(0) As String sArr1(0) = "wow" sArr2(0) = "cool" MsgBox MergeArray(sArr1(), sArr2())(0) MsgBox MergeArray(sArr1(), sArr2())(1) End Sub Private Function MergeArray(sArr1() As String, sArr2() As String) As String() Dim i As Long Dim sTemp() As String On Error Resume Next ReDim sTemp(UBound(sArr1) + UBound(sArr2) + 2) For i = 0 To UBound(sArr1()) sTemp(i) = sArr1(i) Next i For i = UBound(sArr1()) + 1 To UBound(sArr1()) + 1 + UBound(sArr2()) sTemp(i) = sArr2(i - (UBound(sArr1()) + 1)) Next i MergeArray = sTemp End Function


LinkBack URL
About LinkBacks
Reply With Quote