Closing application before MsgBox appears.

[CJPHX]

Good Morning.
Currently I have a macro that opens access and imports my table from some excel spreadsheets. After it is done I have a MsgBox pop up stating that update is complete. However, Access stays open and you cant see the Msg Box until you click back to excel. What can I do to have Access Close before the MsgBox appears.

Dim oApp As Object

    Dim LPath As String
    
    LPath = "c:\\Penetration Database\penetrationdata.mdb"

    Set oApp = CreateObject("Access.Application")
    
    oApp.Visible = True
    
    oApp.OpenCurrentDatabase LPath

    oApp.DoCmd.RunMacro "imcampdata"
  
    MsgBox "Update Complete"