How to Save Excel File to Text File using VBA [Excel for mac and windows]

Sub SaveTheFileText()
'Made It Easy by ExcelExciting.com | Faraz Shaikh | Updated : 20200814

Dim FilePath As String
Dim FileName As String
Dim OS_Separator As String
Dim CheckOS As String
Dim FileExtCheck As String

    '******************************************************
    'Validation Check active workbook file path missing
        If ActiveWorkbook.Path = vbNullString Then
            MsgBox "Please save the workbook to run the code", vbCritical, "Excel Exciting | Faraz Shaikh"
            Exit Sub
        End If
    '******************************************************
    
    '******************************************************
    'Check the OS to add the path separator accordingly andI
        CheckOS = Application.OperatingSystem
        If CheckOS Like "*Mac*" Then
            OS_Separator = "/"  'for Mac
        Else
            OS_Separator = "\"  'for Windows
        End If
    '******************************************************
    
    FilePath = ActiveWorkbook.Path
    ChDir FilePath
    
    FileExtCheck = Mid(ActiveWorkbook.Name, InStr(LCase(ActiveWorkbook.Name), "."), (Len(ActiveWorkbook.Name) - InStr(LCase(ActiveWorkbook.Name), ".") + 1))
    
    If FileExtCheck <> ".xlsx" Then
        MsgBox "Unable to Run the code as the file is not in xlsx format." & vbCrLf & _
        " Please save to xlsx format and run the code", vbCritical, "Excel Exciting | Faraz Shaikh"
        Exit Sub
    Else
        If Mid(ActiveWorkbook.Name, InStr(LCase(ActiveWorkbook.Name), ".xlsx"), 5) = ".xlsx" Then
            FileName = Left(ActiveWorkbook.Name, InStr(LCase(ActiveWorkbook.Name), ".xlsx") - 1)
        Else
            FileName = Left(ActiveWorkbook.Name, InStr(LCase(ActiveWorkbook.Name), ".xls") - 1)
        End If
    End If
    
    ActiveWorkbook.SaveAs FileName:=FilePath & OS_Separator & FileName & ".txt", _
    FileFormat:=xlText, CreateBackup:=False
    
    MsgBox "File Saved Sucessfully" & vbCrLf & "File Location : " & FilePath & OS_Separator & FileName & ".txt", _
    vbInformation, "Excel Exciting | Faraz Shaikh"
        
End Sub