Macro for PenTable Action

I have a set of  Microstation files to plot to pdf for delivery. The files have a unique Internal Company name. Our client has indicated that they neeed a different file name displayed in the title block. At this time we do not want to rename all our files. So ...

My solution was to create a Macro that will read a CSV file with 2 columns (Internalfilename, clientfilename) , I would like via text substitution display the client's name in the border by reading the CSV file and replacing Drawing name with client's name.

In my case the CSV file look like this:

 internalfilename,clientsfilename 

CHSPT-MOD-22-32-SEC11, AAPART-0001

CHSPT-MOD-22-32-SECT12, AAPART-002

Here the code I wrote so far it does not  make the text substitution,

Function PlotSheetNum(Elm as MbeElement) As Long
    
     Dim inString as String
     Dim status as Integer
     Dim searchforString as String
     Dim elemString as String
     Dim tempString as String
     Dim checkString as String
     Dim sheetnumber as String
     Dim lineRead As String
     Dim dgnFileName as String
     Dim csvfilename As String
     Dim commaPos    as Integer
     Dim tmpString   as String
    
   On error resume next
    
    If Elm.type = MBE_Text Or Elm.type = MBE_TextNode Then
     searchforString = "$SN$"
     status = elm.getString(elemString)
      If elemString = searchforString then
        tempString = " "
        dgnFileName = MbeDgnInfo.dgnFileName
        checkString = fileparse$(MbeDgnInfo.dgnFileName,4)
        MbeWriteMessage "CheckString is: " + checkstring
        csvfilename = "D:\SHEETS.CSV"
           Open fileName For Input As #1
             While Not EOF(1)
              Line Input #1, lineRead
              commaPos = Instr (inString, ",", 0)
                If commaPos <> 0 Then
                  tempString = Left$ (inString, commaPos - 1)
                   sheetnumber = Mid$ (inString, commaPos + 1)
                End If
                if tempString = checkString Then
                   tempString = sheetnumber
                   status = Elm.setString(tempstring)
                End if
               Wend
        End if
     End if 
            Close #1
   PlotSheetNum = Mbe_ElemNormal
End Function
Sub Main
End Sub

Any Help would be appreciated

Serge