Checking Accesright for Sharepoint Folder using VBA

having similiar problem.... Try this. not my code

Function AuthenticateExcelUser()

End Function

Sub login_test()
On Error GoTo ConnectError

'Send a bit of text SharePoint as an txt file
Sheets.Add
ActiveSheet.Range("A1").Value = 1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs _
Filename:="https://sharepointaddress.com/xx/Filename.csv", _
FileFormat:=xlTextMSDOS
ActiveSheet.Delete
Application.DisplayAlerts = True

'File successfully sent
MsgBox "Access Granted!"
'Add some code here to continue application.
Exit Function

'File send failed (Probably means they are not authorized)
ConnectError:
MsgBox "Access Denied."

End Function