This code should do what you want:
Dim sb As New StringBuilder()
For i As Integer = 0 To CType(Math.Min(myarr.Count, myarr1.Count), Integer) - 1
sb.AppendFormat("[{0},{1}]", myarr(i), myarr1(i))
Next
Dim output As String = sb.ToString()
Be sure to add
Imports System.Text
at the top of your code file.
The code uses a
StringBuilder[
^] to generate the output. The For loop counts to the minimal length of the two ArrayLists.