AutoCAD VB :: Client Menus Utilizing Raster Design

I've been trying to update a client menu and I've gotten most things figured out.  They have a fairly elaborate routine set up to make sure our drawings work with their document control system as well as raster design.  We are using AutoCAD 2011 and the menu's were meant for 2008.

Everything seems to run well except at this sub module and every time I load a raster drawing with a TIF the routine error's out at the line in Red below.  I've tried everything I can think of to keep the routine running, and I want to refrain from just remarking it out, which seems to do the trick, but I do not want to do that unless it's for some other purpose. I just need to get their menus to work on newer versions of AutoCAD.

Private Sub AcadApp_EndOpen(ByVal FileName As String)
   
    Dim sPathPart As String
    Dim sFilePart As String
    Dim sExtPart As String
    Dim lResult As Long
    Dim vResult As Variant
    Dim bFoundCO As Boolean

[Code] ......