Public Sub Main()
Dim siCount As Short

For siCount = 1 To 10
  Print siCount;
  If siCount <> 5 And siCount <> 10 Then Print ",";
  If siCount = 5 Then Print gb.NewLine;
Next

End