Dim intNumber As Integer
        Dim sngSqrRoot As Single
        intNumber = Val(Me.NumberTextBox.Text)
        Me.NumberTextBox.Text = intNumber
        sngSqrRoot = Val(Me.SquareRootLabel.Text)
        sngSqrRoot = Math.Sqrt(intNumber)
        Me.SquareRootLabel.Text = sngSqrRoot