ByVal bcIn As BC, ByVal pHeaderData() As String, ByVal pHostAddress() As _
  String, ByVal pCompName As String, ByVal pLoggPath As String

Public Class BC
 
  Public A As String
 
  Public B As String
 
  Public C As String
 
  Public D As String
 
  Public E As String
 
  Public F As String
 
  Public G As String
 
  Public H As String
 
  Public I As String
 
  Public J As String
 
  Public K As String
 
  Public L As String
 
  Public M As String
 
  Public N As String
 
  Public O As String
 
  Public P As String
 
  Public Q As String
 
  Public R As String
 
  Public S As String
 
  Public T As String
 
  Public U As String
 
  Public V As String
 
  Public W As String
 
  Public X As String
 
  Public Y As String
 
  Public Z As String
 
  Public Z1 As String
 
  Public Z2 As String
 
  Public Z3 As String
 
  Public Z4 As String
 
  Public Z5 As String
 
  Public Z6 As String
 
  Public Z7 As String
 
  Public Z8 As String
 
  Public Z9 As String
 
  Public Z10 As String
 
  Public Z11 As String
 
  Public Z12 As String
 
  Public Z13 As String
 
  Public Z14 As String
 
  Public Z15 As String
 
  Public Z16 As Integer
 
  Public Z17 As String
 
  Public Z18 As String
 
  Public Z19 As String
 
  Public Arr1() As String _
    '-------------------------------------------------------------
 
  Public Arr2() As String
 
  Public Arr3() As String
 
  Public Arr4() As String
 
  Public Arr5() As String
 
  Public Arr6() As String
 
  Public Arr7() As String
 
  Public Arr8() As String
 
  Public Arr9() As String
 
  Public Arr10() As String
 
  Public Arr11() As String
 
  Public Arr12() As String
 
  Public Arr13() As String
 
  Public Arr14() As String
 
  Public Arr15() As String
 
  Public Arr16() As String
 
  Public Arr17() As String
 
  Public Arr18() As String
 
End Class

"Bis zur Unendlichkeit und noch viel weiter!" Buzz Lightyear