kopiere meinen code einfach und häng dein file darunter, also

Dim A As Integer
A = 0
Do

Print "6"

A = A + 1

Loop Until A = 10

End