Option Explicit
 
Dim strProtocoll() As String
Dim lngProtocollCount As Long

Public Function AddEntry(ByVal Entry As String)
 
  lngProtocollCount = lngProtocollCount + 1
  Redim Preserve strProtocoll(lngProtocollCount)
 
  strProtocoll(lngProtocollCount) = Entry
 
End Function

Public Function SaveProtocoll(ByVal Path As String)
 
  Dim i As Integer  
 
  Open Path For Output As #1
 
  For i = 1 To lngProtocollCount
    Write #1, strProtocoll(i)
  Next i
 
  Close #1
 
End Function