Dim i As Integer
For i = 1 To 10
    Print LTrim$(Str$(i));
    If i Mod 5 = 0 Then
        Print
        _Continue
    End If
    Print ", ";
Next