1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

    Public Function n(ByVal a As Double, ByVal b As Double, Optional ByVal Ziffern As Double = 10)
        Dim sDelimiter As String = "."

        Dim sRes As String = ""

        If a < b Then sRes += "0" & sDelimiter

        If a Mod b = 0 Then Return a / b

        If a > b Then
            sRes += "" & (a - a Mod b) / b & sDelimiter
            a = a Mod b
            If a = 0 Then Return sRes
        End If

        For i = 1 To Ziffern
            Dim nz As Double = 0
            While a < b
                a *= 10 //HIER HIER HIER
                nz += 1
            End While

            If nz > 1 Then
                For j = 2 To nz
                    sRes += "0"
                Next
            End If

            sRes += "" & (a - a Mod b) / b
            a = a Mod b
            If a = 0 Then Exit For
        Next i

        Return sRes
    End Function