Problem med FileIsOpen funktion

Hej

jeg har lavet følgende funktion:

Public Function FileIsOpen(FilePath As String) As Boolean

' returns True if FullFileName currently is in use by another process

Dim f As Integer
f = FreeFile
On Error Resume Next
Open FilePath For Binary Access Read Write Lock Read Write As #f
Close #f
' If an error occurs, the document is currently open.
If Err.Number <> 0 Then
  FileIsOpen = True
  Err.Clear
Else
  FileIsOpen = False
End If
On Error GoTo 0
   
End Function

Jeg bruger funktionen i forbindelse med et VBA modul, der kopierer forskellige ting over i PowerPoint.

Den del af mit modul som giver et problem er:

' Get a reference to the PowerPoint Application object.
Set PPApp = CreateObject("PowerPoint.Application")
' Display the application.
PPApp.Visible = True
' Open a specific presentation.
If smeFileIsOpen(NameOfExistingPPApp) = False Then
    PPApp.Presentations.Open (NameOfExistingPPApp)
End If

Ideen med ovenstående kode er at en bestemt PowerPointapplikation skal åbnes, hvis den ikke allerede er åben. Desværre virker det ikke, da min funktion også returnerer "True", hvis den PowerPointapplikation jeg vil åbne, er blevet åben på en anden computer.

Mit spørgsmål er derfor, hvordan man får ovenstående funktion til kun at returnere "true", hvis PowerPointapplikation er åbn på min computer