Excel backup on network drive

Private Declare Function SetCurrentDirectoryA _
    Lib "kernel32" ( _
    ByVal lpPathName As String) _
As Long
'Use fChDirUNC Like ChDir
Public Function fChDirUNC(ByVal szPathToSet As String) As Long
    fChDirUNC = SetCurrentDirectoryA(szPathToSet)
End Function

Private Sub Btn_Click()
 
If Not theNetwork(" \\server\folder\ ") = 0 Then

    Set h = CreateObject("Word.Application")

    helper.Documents.Open theNetwork(" \\server\folder\ ") & _ 
         "path\path]path\Filename.doc"

    h.Visible = True
 
End If
 
End Sub

Private Function theNetwork(ByVal thePath As String)
 
theNetwork = SetCurrentDirectoryA(thePath)
 
End Function

Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal thePath As String) As Long

If If Not theNetwork(" \\server\folder\ ") = 0 Then

   chdir " \\network\path\ "
 
    Set helper = CreateObject("Word.Application")
    helper.Documents.Open "Documentation.doc"

    helper.Visible = True
 
End If