Вычислить площадь и объем цилиндра - что нужно сделать, чтобы использовалось последнее, корректно введенное число?

 Dim Radius As Integer, Temp As Integer
Temp = InputBox("Ââåäèòå ðàäèóñ " & Chr(13) & "êðóãà" & "(â ìåòðàõ)", BoxTitle)
Radius = CSng(Temp)
If Temp <= 0 Then
MsgBox "Íåïðàâèëüíûå äàííûå. Ââåäèòå ïîâòîðíî!", vbCritical
End If
Do Until (Temp > 0)
Temp = InputBox("Ââåäèòå ðàäèóñ " & Chr(13) & "êðóãà" & "(â ìåòðàõ)", BoxTitle)
If Temp <= 0 Then
MsgBox "Íåïðàâèëüíûå äàííûå. Ââåäèòå ïîâòîðíî!", vbCritical
End If
Loop
Dim Heigth As Integer, Tent As Integer
Tent = InputBox("Ââåäèòå âûñîòó " & Chr(13) & "öèëèíäðà" & "(â ìåòðàõ)", BoxTitle)
Heigth = CSng(Tent)
If Tent <= 0 Then
MsgBox "Íåïðàâèëüíûå äàííûå. Ââåäèòå ïîâòîðíî!", vbCritical
End If
Do Until (Tent > 0)
Tent = InputBox("Ââåäèòå âûñîòó " & Chr(13) & "öèëèíäðà" & "(â ìåòðàõ)", BoxTitle)
If Tent <= 0 Then
MsgBox "Íåïðàâèëüíûå äàííûå. Ââåäèòå ïîâòîðíî!", vbCritical
End If
Loop
CircleArea1 = Pi * Radius * Radius * Heigth
CircleArea2 = CircleArea1 * 1000
CircleArea3 = 2 * Pi * Radius * (Radius + Heigth)
CircleArea4 = (2 * Pi * Radius * (Radius + Heigth)) * 10000
MsgBox CircleArea1 & "(ì^3)" & Chr(13) & CircleArea2 & "(äì^3)", vbInformation + vbOKOnly, "Îáúåì(V)"
MsgBox CircleArea3 & "(ì^2)" & Chr(13) & CircleArea4 & "(ñì^2)", vbInformation + vbOKOnly, "Ïëîùàäü ïîëíîé ïîâåðõíîñòè(S)"
End Sub

Do
Temp = InputBox("Введите радиус " & Chr(13) & "круга" & "(в метрах)", BoxTitle)
If Temp = "" Then Exit Sub 'нажали отмена
If Not IsNumeric(Temp) Then
    MsgBox "Неправильные данные. Введите повторно!", vbCritical
Else
    Radius = CSng(Temp)
    If Radius <= 0 Then
        MsgBox "Радиус не может быть отрицательным." & Chr(13) & _
        "Введите повторно!", vbCritical
    Else
        Exit Do
    End If
End If
Loop