Help to modified code to work in Microsoft publisher

[Lord Who]

I have these 2 codes and really they're not the best. What I'm trying to achieve is that I would like to run a macro in Microsoft Publisher then a input box pops up and all I have to do is to enter the file name and it should automatically open the file. I have these 2 codes but neitheris seems to work.

I'll appreciate with any suggestions.

Sub Test1() 
    Dim pubApp As New Publisher.Application 
    Dim pubDocument As Publisher.Document 
     
    myFile = InputBox _ 
    ("Enter the Word document file name:", _ 
    "What File do you wish to open?", _ 
    "YourFileName") 
    If myFile = "" Then Exit Sub 
     
    pubDocument = pubApp = "C:\.pub" 
     
    If Dir(myDoc) = "" Then 
        MsgBox "The file ''" & myDoc & "'' was not found.", 48, "No such animal." 
        Exit Sub 
    End If 
     
End Sub

Sub Test1() 
    Dim myFile$ 
    myFile = InputBox _ 
    ("Enter the Word document file name:", _ 
    "What File do you wish to open?", _ 
    "YourFileName") 
    If myFile = "" Then Exit Sub 
     
    Dim myPath$, myDoc$ 
    myPath = "C:\Your\File\Path\" 
    myDoc = myPath & myFile & ".pub" 
     
    If Dir(myDoc) = "" Then 
        MsgBox "The file ''" & myDoc & "'' was not found.", 48, "No such animal." 
        Exit Sub 
    End If 
     
    Application.Open myDoc 
     
End Sub