Dirファイルが更新されない理由について

以下のﾌｧｲﾙを実行すると、下から3行目の「kenf = Dir()」が「プロージャ呼び出し、または因数が不明です」と表示されます。

とあるサイトの解説で「戻り値の無い関数をプロージャ」というのを見かけた事があったのですが、5行目の「kenf = Dir(path & "*", vbDirectory)」はこれに当たらないのでしょうか。

当たらない場合は
「sif = Dir(path & kenf & "" & "*", vbDirectory)」が上手く作動する理由も知りたいです。

原因がそのほかに有る場合は解説いただけると嬉しいです。
よろしくお願いします。

Dim path As String
Dim kenf As String
Dim sif As String

path = ThisWorkbook.path & "\" & "格納ファイル" & "\" & "国" & "\"
kenf = Dir(path & "*", vbDirectory)

'表の数を抽出
Dim name As String
Dim hyoug As Long
Dim inthyou As Long '表のデータ数

hyoug = 11
name = Cells(hyoug, 3)

Do While name <> ""
 hyoug = hyoug + 1
 name = Cells(hyoug, 3)
Loop

inthyou = hyoug - 11
Cells(2, 2) = inthyou 'inthyouで表のデータ数

'監視開始
Do While kenf <> ""

 If kenf = "." Then
 kenf = Dir()
 End If
  
 If kenf = ".." Then
 kenf = Dir()
 End If

sif = Dir(path & kenf & "\" & "*", vbDirectory)
  Do While sif <> ""
   
    If sif = "." Then
    sif = Dir()
    End If
  
    If sif = ".." Then
    sif = Dir()
    End If
   
      Dim kenh As String
      Dim sih As String
      
      hyoug = 11
   
      For intA = 1 To inthyou
       kenh = Cells(hyoug, 2)
       sih = Cells(hyoug, 3)
   
        If kenf = kenh And sif = sih Then
         Cells(hyoug, 9) = "確認"
         Exit For
         
        Else
         hyoug = hyoug + 1
         
        End If
              
      Next
   sif = Dir
  Loop
  
 kenf = Dir()
Loop

End Sub