Замените цикл FOR циклом Do While в приведенном коде

Option Strict On 
Module Module1 
 
Sub Main () 
Dim Ev, Fv, c, sum1, sum2 As Double 
Cоnst h As Dоuble = 0.0000000000000001986 
Cоnst k As Dоuble = 0.0000000000000001381 
Dim N As Integer 
Cоnst eps As Dоuble = 0.000001 
Dim W As Double = 10 
Dim T1 As Integer 
Dim T2 As Integer 
Dim shag As Integer 
Console.WriteLine("частота колебаний: {0}см-1", W) 
Console.WriteLine("") 
Console.WriteLine("T1 | Fv | <ev>/h,см-1") 
 
Console.WriteLine("--------------------------------------------------------") 
Dim T As Integer 
T1 = 100 
T2 = 2000 
shag = 100 
 
Ev = 0 
Fv = 0 
N = 0 
sum1 = 0 
sum2 = 0 
For T = T1 To T2 Step shag 
Do 
Ev = (N + 0.5) * h * W 
Fv = Math.Exp((-Ev) / (k * T)) 
sum1 = sum1 + Fv * Ev 
sum2 = sum2 + Fv 
N = N + 1 
Loop Until Fv < eps 
c = sum1 / sum2 
Console.WriteLine("{0,-4} | {1,-9:F4} | {2,-9:E8} ", T, sum2, c / h) 
Ev = 0 
FV = 0 
N = 0 
sum1 = 0 
sum2 = 0 
 
Next T 
 
Console.ReadLine() 
End Sub 
 
End Module

T = T1           '
 Do While T <= T2 ' Это вместо For T = T1 To T2 Step shag
 T = T + shag     '
 
 
 
 Loop ' Это вместо Next Т