Как сделать средствами ВБА чтобы обрезалась первые знаки до последнего?

Set fs = Application.FileSearch
With fs
    .LookIn = '\work-serverVDU!Scan'
    .SearchSubFolders = True
    .FileName = Forms![GZ_materials_history_main_form]![NB]
    Me![NUMFIRME] = Forms![GZ_materials_history_main_form]![NB]
   
    If .Execute > 0 Then
        MsgBox 'There were ' & .FoundFiles.Count & _
            ' file(s) found.'
            
          For I = 1 To .FoundFiles.Count
          'MsgBox .FoundFiles(i)
          Me![NUMFIRME] = Forms![GZ_materials_history_main_form]![NB]
          ss = .FoundFiles(I)
          aa = ss & ''
          Me![Name_photo] = aa
          DoCmd.GoToRecord , , acGoTo, I
          Next I
   Else
       MsgBox 'There were no files found.'
   End If
     
   End With

Option Base 0
Function FileNameFromPathName (strPathName as string) as string
dim arrPath() as byte
dim iCount as integer
'Переводим строку в массив байтов
arrPath=strPathName
'Находим в массиве первое включение элемента 92(код ) с конца
for iCount=Ubound(arrPath)-1 to 0 step -2
   if arrPath(iCount)=92 then exit for
next
'Если таковой найден возвращаем строку после 
if iCount<>0 then
   FileNameFromPathName=right$(strPathName,len(strPathName)-(iCount/2)+1)
'если не найден возвращаем исходную строку
else
   FileNameFromPathName=strPathName
end if
end function

strTemp = "\work-serverVDU!Scan"
    strTemp = Right(strTemp, Len(strTemp) - InStrRev(strTemp, " "))
    Debug.Print strTemp