Процедура останавливается на строке

Private Sub Кнопка38_Click()
Const ss = "C:\ase.txt" 'путь и имя файла
Dim table As Recordset
Dim s As String
Dim sss As String
 Set table = CurrentDb.OpenRecordset("Pilga_2", dbOpenDynaset)
 With table
   If Not .EOF Then
     s = Dir(ss, vbNormal)     'найти файл base.txt
     If s <> "" Then Kill (ss) 'если он уже есть, то удалить
     Open ss For Binary As #1 'создать файл base.txt и открыть его на запись
     .MoveFirst                'перейти к I записи запроса Raschet
     While Not .EOF            'заполнить файл данными из запроса Raschet
       
       sss = Format(!Inn, "0000000000")       'собираем строку для записи в файл
       
       'ДАЛЕЕ МОЖНО:
       'If Not IsNull(!FIO) Then s = !FIO + String(50 - Len(!FIO), " ") Else s = String(50, " ")
       'ИЛИ МОЖНО РАВНОЦЕННО:
       ' s = Left$(!FIO + Space(50), 50)
       'Оно короче и будет работать даже если длина ФИО > 50
       'Что ниже и сделано.
       
       s = Left$(!FIO + Space(50), 50)
                               'если FIO не может быть null, то достаточно просто s = !FIO + String(50 - Len(!FIO), " ")
       sss = sss + s
       'If Not IsNull(!LICS) Then s = !LICS + String(15 - Len(!LICS), " ") Else s = String(15, " ")
                               'аналогично
          s = Format(!LICS, "000000000000000")
       sss = sss + s + "00000.0000000.0000000.0000000.00"  'эти 2 поля заполн. другими организ.
       s = Format(!PrGaz * 100, "00000.00")
       sss = sss + s
       s = Format(!СжГаз * 100, "00000.00")
       ' Борис если так,-  s = Format(!СжГаз, "00000.00"), то в текстовом файле будут запятые, а надо точки.
       sss = sss + s + "0000000" 'и так далее.
            
     
       sss = sss & vbCr        'vbCr - для того, чтобы следующую запись начать с новой строки в файле
                               'это если нужно...
       Put #1, , sss
       .MoveNext               'перейти к следующей записи запроса Raschet
     Wend
     Close #1                   'закрыть файл
   End If
 End With
 
End Sub