Ensures the path contains a trailing backslash.
Module
Public Sub CheckPath(MyPath$) ' Adds the \ to the Application Path when required
MyPath$ = App.Path
If Not Right(MyPath$, 1) = "\" Then
MyPath$ = MyPath$ & "\"
End If
End Sub
Usage
Private Sub Command1_Click()
Dim MyPath As String
Dim FileName As String
FileName = App.EXEName
Call CheckPath(MyPath$)
MsgBox "The location of: " & FileName & " is " & MyPath$ & vbCrLf & " Full Path: " & MyPath$ & FileName
End Sub