B解答

Private Sub CommandButton1_Click()

    Dim wa As Integer, i As Integer

    wa=0
    For i = 1 To 99 Step 2

        wa = wa + i
    Next

    Cells(6, 1) = wa

End Sub