For x = 0 To i (1336)
     Dim split3 As String() = array(x).Split(New [Char]() {" "c})
     Dim split4 As String = array1(x)
     x += 1
     If Not x >= i Then
         Do While array(x).StartsWith(split3(0))
               array2(x) = "R" + split4
               x += 1
         Loop
     End If
     x += 1
     If x < i Then
          x -= 1
     Else
          x += 1
     End If
Next x