Problemmer med sinus

Howdy eksperter...
Jeg har et problem jeg har grublet længe over, og ikke helt kan finde en logisk løsning på... Jeg har lavet et program til at udregne sin, cos og tan (også i invers) både i radianer (som vb normalt regner i) og grader. Problemmet er bare at min funktion ved sinus (ikke invers) giver et forkert resultat ved ca. 5 decimal (hvor samme resultat i radianer er ok). Måske er det blot en afrundingsfejl, men jeg smider lige min brugte kode ind, for at nogle friske øjne måske kan spotte min fejl...
Jeg har lavet en dll-fil med matematik-funktionerne som jeg så refererer til fra mit program:

[Fra dll-filen]
Const Pi As Double = 3.14159265358979

Public Function ArcSin(Tal As Single, Optional Radianer As Boolean = True) As Single
    Dim Resultat As Single, Grader As Single
   
    If Tal = 1 Then
        Resultat = Pi / 2
    Else
        Resultat = Atn(Tal / Sqr(-Tal * Tal + 1))
    End If
    If Radianer = True Then
        ArcSin = Resultat
    Else
        Grader = Replace(Resultat, ".", ",")
        ArcSin = RadTilGrad(Resultat)
    End If
End Function

Public Function RadTilGrad(Radianer As Single) As Single
    RadTilGrad = Radianer * (180 / Pi)
End Function

Public Function GradTilRad(Grader As Single) As Single
    GradTilRad = Grader * (Pi / 180)
End Function

[Fra selve programmet]
If Invers = True Then 'Invers:
    Grader = MAT.ArcSin(Tal, False) 'False retunere gradantallet - se funktionen i dll-filen
    Radianer = MAT.ArcSin(Tal)
Else 'Ikke invers:
    Grader = MAT.GradTilRad(Sin(Tal))
    Radianer = Sin(Tal)
End If

Håber nogen kan hjælpe...
-Sion