Dim rb = ft.getMyRequestBySearch(id,"","","")
For i As Integer = 0 To rb.Length - 1
For j As Integer = 0 To rb(i).Length - 1
msgbox(12345)
Next
Next
------------------
Dim a(1) As object
Dim b() As String = {"1", "2"}
a(0) = b
a(1) = b
msgbox(a(1)(0))
msgbox(a(1)(1))
For i As Integer = 0 To a.Length - 1
For j As Integer = 0 To a(i).length - 1
msgbox(a(i)(j) )
Next
Next