Converting VBA to mac (runtime error 429)

Hi all!
I'm a beginner in coding. But I managed to make a working code for windows, but when I want to convert it to Mac it gave a runtime error 429 (AvtiveX component can't create object). This is the code that gave the error:

Function FactuurOpslaan()
    Dim stPath As String
    With Sheets("Factuur Opstellen")
        stPath = ActiveWorkbook.Path & "\Facturen\"
        stPath = stPath & "Facturen" & Space(1) & MaandNaam(Month(Now)) & "-" & Year(Now)
        With CreateObject("Scripting.FileSystemObject")
             If Not .FolderExists(stPath) Then .CreateFolder stPath
        End With
.ExportAsFixedFormat 0, stPath & "\Factuur " & .Range("F29") & ".pdf", , 1
    End With
End Function

The error is in the "With CreateObject("Scripting.FileSystemObject")" part. Already from google search I found out that Scripting.FileSystemObject is only supported by windows, and will never work on a Mac. But I don't know how to fix it. Hope you can help me!

Kind regards

You can't use windows libraries on a mac (pretty much anything that requires you to set a reference or use CreateObject).

I think Dir should work though, so you can use that to check if something exists - also mkDir for creating folders

But do I only change the part of CreateObject("Scripting.FileSystemObject") with the Dir function? Or should I adjust the whole thing?
I already read about the Dir function, but didn't know how to implement it....

I think this should be cross platform, but it's untested:

    Dim stPath As String
    With Sheets("Factuur Opstellen")
        stPath = ActiveWorkbook.Path & Application.PathSeparator & "Facturen" & Application.PathSeparator
        stPath = stPath & "Facturen" & Space(1) & MaandNaam(Month(Now)) & "-" & Year(Now)
        If Not Len(Dir(stPath, vbDirectory)) > 0 Then
            MkDir stPath
        End If

        .ExportAsFixedFormat 0, stPath & Application.PathSeparator & "Factuur " & .Range("F29") & ".pdf", , 1
    End With

Does Dir with the file path work? Remember that macs don't use the same path separators as windows

If I put it this way it still can't find its path

Function FactuurOpslaan()
    Dim stPath As String
    With Sheets("Factuur Opstellen")
        stPath = "Macintosh HD:Users:christiaanpeelen:Documents:Factuursysteem:"
        stPath = stPath & "Facturen" & Space(1) & MaandNaam(Month(Now)) & "-" & Year(Now)
        If Not Len(Dir(stPath, vbDirectory)) > 0 Then
            MkDir stPath
        End If

        .ExportAsFixedFormat 0, stPath & Application.PathSeparator & "Factuur " & .Range("F29") & ".pdf", , 1
    End With
End Function

Still a little bit desperate on the problem over here. I think that it may be caused by an empty folder, but how can I avoid this error then? Hope you can help me out!