Sub testfield(ByRef LogArr() As Variant)
  Dim width As Integer
  Static RealIndNumb As Long    'real individual number 
  ' lifetime=programmlifetime
  width = 2 + numbvar + numbvar + 1 + numboutput + numboutput + 2
  RealIndNumb = RealIndNumb + 1
  ReDim Preserve LogArr(1 To RealIndNumb, 1 To width)
End Sub
 
Sub test2()
 
Dim LogArr() As Variant
Dim i As Integer
numboutput = 1
numbvar = 2
 
For i = 1 To 3
  Call testfield(LogArr())
Next
 
End Sub