How to convert a construct to a While loop?

Question

Visual Basic

Can the following construct be converted from a For Loop to a While Loop?

Public Sub example1()
Dim N As Integer
Dim i As Integer
Dim Sum As Long
N = InputBox("Введите целое число")
Sum = 0
For i = 2 To N Step 2
 Sum = Sum + i
Next i
MsgBox "Сумма= " + Str(Sum)
End Sub