For counter = start To end [Step value]
   [Kod bloğu]
Next [counter]
Kopyala

• counter: Döngü kontrol değişkeni 14.
• start: Döngünün başlangıç değeri 14.
• end: Döngünün bitiş değeri 14.
• Step value: Opsiyonel adım değeri 14.

Sub AddNumbers()
   Dim Total As Integer
   Dim Count As Integer
   Total = 0
   For Count = 1 To 10
       Total = Total + Count
   Next Count
   MsgBox Total
End Sub
Kopyala