Public Enum eHeaderFields
   eHPID = 1
   eHLKZ = 2
   usw...
End Enum

Public cmHeaderFields as new Collection
 
with cmHeaderFields
   call .Add("PID", CLng(eHPID))
   call .Add("Löschkennzeichen", CLng(eHPID))
   usw...
end with

Public Function ReadHeaderField(ByVal eHField As eHeaderFields) As Variant
 
   Select Case eHField
 
      Case eHPID
         ReadHeaderField = "PID des Headers"
 
      Case eHLKZ
         ReadHeaderField = "Löschkennzeichen des Headers"
 
      Case usw...
         usw...
 
   End Select
 
End Function
 
Public Function WriteHeaderField(ByVal eHField As eHeaderFields, _
                                 ByVal vmValue As Variant) As Boolean
 
   Select Case eHField
 
      Case eHPID
         Debug.Print "Schreibe " & vmValue
 
      Case eHLKZ
         Debug.Print "Schreibe " & vmValue
 
      Case usw...
         usw... 
 
   End Select
 
End Function