How do I go about coding the 'Calculate button' so that when a user is prompted to input a number into a Input box it will will calculate the square and square root of it?

This is what I have so far. I'm pretty sure about the first part, but am confused about the square root part.

```
Private Sub cmdCalc_Click()
â€˜calculate square of a number
lblTsquare.Caption=txtNumber^2
â€˜calculate square root of a number
txtNumber.Text = Sqr(txtNumber.Text)
End Sub
```