Imports System
Class Program
Public Shared Sub Main()
Dim array As Integer() = {1, 2, 3, 4, 5, 6, 7}
Dim len As Integer = array.Length
For i As Integer = 0 To len - 1 Step 2
If i + 1 < len Then
Console.WriteLine($"Group: {array(i)}, {array(i + 1)}")
Else
Console.WriteLine($"Group: {array(i)}")
End If
Next
End Sub
End Class
' run:
'
' Group: 1, 2
' Group: 3, 4
' Group: 5, 6
' Group: 7
'