App.Path returns a string with the “\” character at the end if the path is the root drive (e.g., “C:\”) but without that character if it isn’t (e.g., “C:\Program Files”). Most of the time we need the “\” at the end, so this function saves you the inconvenience of adding it every time.
Public Function AppPath() As String
Dim sAns As String
sAns = App.Path
If Right(App.Path, 1) <> "\" Then sAns = sAns & "\"
AppPath = sAns
End Function