Нужны задачи в бейсик - VB

Private Sub Command1_Click()
Dim p As Double
Dim k_1 As Double
Dim k_2 As Double
Dim z As Double
Cls
p = InputBox("Ââåäèòå ïëîùГ*äü òåððèòîðèè")
k_1 = InputBox("Ââåäèòå ГЄ-ГІ ГµГ*Г°Г*êòåðèçóþùèé ГЄГ®Г*Гґ-ГЁГѕ çåìåë-Г© ïëîùГ*äè")
k_2 = InputBox("Ââåäèòå ГЄ-ГІ ГіГ·ГЁГІГўГ*ГѕГ№ГЁГ© Г°Г*Г§Г*îñòü ГЇГіГІГҐГ©")
z = (22260 / p) + 1.48 * k_1 * k_2 * ((p) ^ 1.2) + 67.4
Print Round(z, 3)
End Sub