Здесь будем размещать полезные фрагменты кода.

Встретил в инете вот такой яйцечёс:

Правильная обработка обратной косой черты при использовании свойства App.Path

Public Function AppPath(sFileName As String) As String
    If Right$(App.Path, 1) = "\" Then
        AppPath = App.Path & sFileName
    Else
        AppPath = App.Path & "\" & sFileName
    End If
End Function
И всё я никак не можу понять, зачем делать проверку на слеш\ ,
App.Path всегда без слеша путь к директории передаёт. Ну раз
комуто чешется пусть на слеш проверяют, а ещё пусть на кавычки проверят или на тильду