Объясните по-русски

Public Function RefreshLinks(Путь As String) As Boolean
'Подключает все присоединенные таблицы к файлам по новому пути
Dim Dbs As Database, Tdf As TableDef
Dim ПолныйПуть As String, Файл As String
 
Set Dbs = CurrentDb
For Each Tdf In Dbs.TableDefs
If Len(Tdf.Connect) > 0 Then
Файл = Mid(Tdf.Connect, 11)
Файл = Mid(Файл, фунРазделитель(Файл) + 1)
ПолныйПуть = Путь & Файл
Tdf.Connect = ';DATABASE=' & ПолныйПуть
Err = 0
On Error Resume Next
Tdf.RefreshLink
If Err <> 0 Then
RefreshLinks = False
Exit Function
End If
End If
Next Tdf
RefreshLinks = True
End Function

   Dim dbs As Database
    Dim tdf As TableDef
    Set dbs = CurrentDb
    SysCmd acSysCmdInitMeter, 'Подлинковываю таблицы из базы ' & sBase,
dbs.TableDefs.Count
    For Each tdf In dbs.TableDefs
        If Len(tdf.Connect) > 0 Then
            tdf.Connect = ';DATABASE=' & sBase
            tdf.RefreshLink
        End If
    Next tdf
    MsgBox 'Таблицы подлинкованы.' & vbCr & sBase, vbOKOnly + vbInformation,
'Минздрав доволен!'

  dbs.TableDefs(szTableName).Connect = 'dBase III;HDR=NO;IMEX=2;DATABASE=' &
szNewPath
  dbs.TableDefs(szTableName).RefreshLink

Public Function LastDelimiter(ByVal s As String) As Integer
Const cDel = ' '
Dim i As Integer
Dim sChar As String
 
  LastDelimiter = 0
  
  For i = 1 To Len(s)
    sChar = Mid(s, i, 1)
    If sChar = cDel Then
      LastDelimiter = i
    End If
  Next
 
End Function