Option Explicit
Dim z As Integer
Dim s As Single

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