Dim AppPath As String Function ApplicationPath() As String AppPath = Application.StartupPath Return AppPath End Function