Option Explicit


Public Sub Auto_Open()
    Dim xllRegistered As Boolean
    Dim bfver
    On Error GoTo installxll
    bfver = Run("BFVer")
    Exit Sub
installxll:
    On Error GoTo attempt2
    xllRegistered = Application.RegisterXLL("BusFunLb.xll")
attempt2:
    On Error GoTo handler
    xllRegistered = Application.RegisterXLL("c:\program files\Business Functions\BusFunLb.xll")
    If Not xllRegistered Then MsgBox "Failed to register the Business Functions Library" + vbCr + "Support: BusinessFunctions.com", vbInformation, "Auto_Open Subroutine"
    Exit Sub
handler:
    MsgBox "Error installing the Business Functions Library " + vbCr + "Support: BusinessFunctions.com" + vbCr + Err.Description, vbInformation, "Auto_Open Subroutine"
    On Error GoTo 0
End Sub