VB中的循环退出问题

[wzh0510]

请高手指教！谢谢
我在编程时应用了do……loop 循环，在窗体控件中选择数据计算，想循环一次后退出循环，再在控件中选择数据计算，但第一次计算结果数据要保留。现在的问题是退出循环后数据全为初始数据了！该怎么办？或者用其它循环和方法解决！
部分程序代码如下：

Private Sub Command2_Click()
Dim gangji$, D!, δ!, qw!
L0 = H0

Do Until L0 = 0

D = Val(Combo1.Text)
gangji = Combo2.Text
qw = Val(Combo4.Text)
δ = Val(Combo3.Text)
Li = Val(Text6.Text)
Select Case gangji '套管最小屈服强度Ts（MPa）、抗拉强度Pj（MPa）
Case "H-40"
Ts = 275.79: Pj = 413.69
End Select

Select Case D '套管性能参数：抗内压强度Pi（标准梯形螺纹，kPa）、抗挤强度Pc（MPa）
Case 114.3
If gangji = "H-40" And δ = 5.21 Then Pi = 21.994: Pc = 19.03

End Select

m = 1
List1.AddItem "第" & m & "段套管" '这些为从窗体控件中选择的数据
List1.AddItem "钢级：" & gangji
List1.AddItem "外径：" & D & "mm"
List1.AddItem "壁厚：" & δ & "mm"
List1.AddItem "线重：" & qw & "kg/m"
List1.AddItem "设计井段：" & L0 - Li & "-" & L0 & "m"

L0 = L0 - Li
m = m + 1

If L0 = 0 Then
Label20.Caption = "套管选择完毕！"
'Exit Do
ElseIf L0 > 0 Then
Label20.Caption = "请继续选择下一级套管！"
Exit Do
Else
Label20.Caption = "选择长度超出井段长！"
End If

Loop
End sub