Übersetzung in VB-Code

[EWeiss]

Code:

  Public Enum TGEDCOMApproximated
     daExact = 0
     daAbout = 1
     daCalculated = 2
     daEstimated = 3
  End Enum

Code:

const varArray() As Variant = Array("", "ABT", "CAL", "EST")

Anschließend kannst du das Array mit split und den Delemiter "," auseinandernehmen

Code:

Dim fvarArray As String

varArray = Split(fvarArray , ",")
varArray(0) = ""
varArray(1) = "ABT"

usw..

gruss