VB问题，关于求平方根

Function squareroot(x As Double) As Double
Select Case Sgn(x)
Case 1
squareroot = Sqr(n)
Case 0
squareroot = 0
Case Else
squareroot = -1
End Select

End Function
Private Sub Command1_Click()
Dim msg, sqrn
Dim n As Double
n = InputBox("请输入要计算的数：")
msg = n & "的平方根"
Select Case squareroot(n)
Case 0
msg = msg & "是0"
Case -1
msg = msg & "是一个虚数"
Case Else
msg = msg & squareroot(n)
End Select
MsgBox msg
End Sub

输入正数的返回值为什么是0。这段代码哪写错了？

关于平方根！！急求！！！ 关于初一平方根问题 数学关于平方根的问题``````````` 关于平方根的问题！急！ 一些关于平方根的问题 求平方根 关于平方根 （迷惑）：请教关于Javascript中Math对象中求平方根SQRT的一个问题！ 关于平方根和立方根的问题 平方根问题