How to use path from SharePoint?

[markschneider89]

I wrote this VBA code to get the path of Excel file and create a configuration text file so that it doesn't asks for path again. Everything works fine in local storage. But once I upload it in SharePoint and open it from there, macros won't work and also the Excel file path from SharePoint isn't accepted. Is there any solution to use SharePoint path?
The code follows as

    Public Function getExcelPath()
    Dim intFileNum As Integer
    intFileNum = FreeFile
    Dim hasPath As Boolean
    hasPath = False

    Dim xlpath As String
    Dim sPath As String
    sPath = ActivePresentation.path & "\config.txt"
    
    If Dir(sPath) <> "" Then
        Open sPath For Input As intFileNum
        On Error Resume Next
        Line Input #intFileNum, xlpath
        Close intFileNum
        If Dir(xlpath) <> "" And xlpath <> "" Then
            hasPath = True
        End If
        
    End If

    If Not hasPath Then
        Xl_Browse.Show
        xlpath = Xl_Browse.Controls("Xl_Link").Value
        Unload Xl_Browse
        Open sPath For Output As intFileNum
        Print #intFileNum, xlpath
        Close intFileNum
    End If
    
    getExcelPath = xlpath
End Function