Error codigo excel

Hola a tod@s!
No domino en absoluto vb y me da un error el siguiente código en la linea del IF
En la carpeta Registros_ml13 tengo 31 archivos txt: ML13-1, ML13-2, ML13-3 (..) ML13-31
necesito comprobar que estén todos con esta macro ya que en el caso de no existir ejecutare otra macro.
Sub comparar_carpetas()
Dim dias As Integer
dias = 0
 For dias = 1 To 31 Step 1
    If Dir("K:\ING\Mantenimiento\Mantenimiento\\Registros_ml13\ML13-" & dias ".txt") <> vbNullString Then
    MsgBox "El fichero existe"
    Else: MsgBox "El fichero no existe"
    End If
 Next dias
End Sub
-------------------------------
Saludos y gracias!