以下程序计算2到50间所有偶数的和，请补充完善该程序。

Sub mult( )

    Dim Sum As Integer

    Sum=0

    Dim i as integer

    For to 50

        If i MOD 2= Then

            

        End if

    Next i

    Print sum

End Sub