Dim Laenge as Integer
  Dim WertPos(1 to 3) as Long
  Dim Var1 as String, Var2 as String, Var3 as String
 
  Laenge = Len(Description)
  WertPos(1) = Instr(1, Description, ";")
  Var1 = Mid$(Description, 1, Laenge - WertPos(1))
  WertPos(2) = Instr(WertPos(1), Description, ";")
  Var2 = Mid$(Description, WertPos(1), Laenge - WertPos(2))
  WertPos(3) = Instr(WertPos(2), Description, ";")
  Var3 = Mid$(Description, WertPos(2), Laenge - WertPos(3))