Merging Two Arrays and convert as String QTP

Dim A(1)
A(0) = "Guru"
A(1) = "Prasad"
Dim B(1)

B(0) = "Naidu"
B(1) = "Kollu"
For i = 0 to ubound(A)
Str = A(i)
oTempA = oTempA&","&Str
Next
For j= 0 to ubound(B)
Str1 = B(j)
oTempB = oTempB &","& Str1
Next
        strCon = oTempA &""& oTempB
msgbox strCon