Public Function sin_x(ByVal x As Integer) As Integer
    Dim i As Integer
    
    i = x
    If (x = 90) Then
        sin_x=x
        Exit Function
    End If
    
End Function