CodeItBetter Programming Another VB Programming Blog

'Math - How to find Square root of a given number
Public Function dblSqrt(ByVal dblParameter As Double) As Double
    'Check if the input parameter is negative
    If dblParameter < 0 Then
        'If the input parameter is negative, return -1
        dblSqrt = -1
    Else
        'If the input parameter is positive, return its square root
        dblSqrt = Sqr(dblParameter)
    End If
End Function