Language Basics VisualBasic Script

Sub single1()
    MsgBox "Can't find " & UCase(SHORTCUTMENUFILE) & ThisWorkbook.Path & vbCrLf & vbCrLf & _
      "You may need to reinstall BudgetMan", vbCritical, APPNAME
End Sub