Thread: [VB6] Merge 2 string arrays

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

really nice done squeezer this will be usfull for a project of mine thanks.

I just reinstalled VB awhile ago, good example.