Your declarations are OK.
The code could look like this:
Sub btnCalc_Click
Dim Numb1, Numb2 as Double
Numb1 = edtNumber.Text
Numb2 = Sqrt(2*6368*Numb1/0.8279)/100
lblVis1.Text = Numb2
Numb2 = 1.17*Sqrt(Numb1)
lblVis2.Text = Numb2
End Sub
In the routine two variables are declared as Double
Numb1 gets the value from edtNumber.Text.
Even though edtNumber.Text is a String, setting its content to Numb1 converts it to a number.
You should test if edtNumber.Text is a number or set the edtNumber.InputType parameter to
EditText1.INPUT_TYPE_NUMBERS.
Numb2 is used for the result of the calculations.
You can set a number value to the text parameter of any view.
To run the calculation you need something that generates an event, a button is the best for that.
Best regards.