Ardışık çift sayıların toplamını hesaplayan program

Sub ciftsayitoplami()
       
        Dim i, ciftsayi As Integer
          ciftsayi = 0
         
            For i = 30 To 80 Step 2
                ciftsayi = ciftsayi + i
            Next
          
        MsgBox "30 ile 80 arasındaki çift sayıların toplamı " & ciftsayi
   
    End Sub