Public Function fcDatenausStrg(str As String, Komma As Integer)
    Dim a As String
    Dim Pos As Integer
    Dim Pos2 As Integer
    Dim n As Integer
        n = 1
    Pos = InStr(1, str, ",", vbTextCompare)
    If str = "" Then
        fcDatenausStrg = "nix"
    ElseIf Pos = 0 Then
        fcDatenausStrg = "nix"
    ElseIf Komma > 1 Then
        Do While n < Komma - 1
            Pos = InStr(Pos + 1, str, ",", vbTextCompare)
            n = n + 1
            If Pos = 0 Then
                a = "nix"
                Exit Do
            End If
        Loop
        Pos2 = InStr(Pos + 1, str, ",", vbTextCompare)
        If Pos > Pos2 Then
            fcDatenausStrg = "nix"
        ElseIf a = "nix" Then
            fcDatenausStrg = a
        Else
        fcDatenausStrg = Mid(str, Pos + 1, Pos2 - Pos - 1)
        End If
 
    ElseIf Komma = 1 Then
        fcDatenausStrg = Mid(str, 1, Pos - 1)
    End If
End Function