Определить значение квадратного корня для любого вводимого пользователем числа - VB

Dim z As Integer
Dim s As Integer
 
Private Sub Command1_Click()
CurrentY = 1400
z = InputBox("Введите целое положительное число", _
"Запрос числа")
While z < 1000
s = Sqr(z)
CurrentX = 100
Print "Корень квадратный из числа "; z; _
"равен"; s
z = InputBox("Введите челое положительное число", _
"Запрос числа")
Wend
Label1.Caption = "Спасибо вычисления законченны"
End Sub