AppPath

Public Function AppPath() As String
If Right(App.Path,1) <> "\" Then
AppPath = App.Path & "\"
Else AppPath = App.Path
End If
End Function