Quick VB6 Programming

[citizen tower]

I am trying to add two byte arrays together... I don't work with byte arrays too often so this is new to me. Would the following code work?

Function AddByteArrays(arr1() As Byte, arr2() As Byte) As Byte()
    Dim tmpByte() As Byte
    ReDim tmpByte(0)
    Dim I As Integer
    For I = 0 To UBound(arr1)
        tmpByte(I) = arr1(I)
        ReDim Preserve tmpByte(I + 1) As Byte
    Next
    I = I + 1
    For a = 0 To UBound(arr2)
        tmpByte(I) = arr2(a)
        ReDim Preserve tmpByte(I + 1) As Byte
        I = I + 1
    Next
    ReDim Preserve tmpByte(UBound(tmpByte) - 1)
    AddByteArrays = tmpByte
End Function