Public Sub logfile(logname As String, meslog As String)
'logname имя файла
'meslog As String - что пишем

On Error GoTo ErrorHandler                 ' Перехватываем ошибку
Dim FileNumber As Integer
' открытие файла
FileNumber = FreeFile                   ' номер для открытия файла
If FileNumber =  0  Then                  ' номер не получен
    FileNumber = FreeFile( 1 )            ' поискать в другой области
End If
If FileNumber =  0  Then                  ' номер так и не получен
    MsgBox "Слишком много открытых файлов - закройте лишние", _
      vbExclamation + vbOKOnly, "Ошибка"
    Exit Sub
End If


Open logname For Append Access Write Lock Read Write As FileNumber   ' открыть файл
Print #FileNumber, meslog
Close FileNumber

On Error GoTo  0  ' Отключаем перехват ошибок.
 Exit Sub
ErrorHandler:
'туточки обрабатываем ошибку

End Sub