Warum das Rad in Script immer neu erfinden, wenn es Evaluate gibt, also:
Dim ret_eval As Variant
Dim text As String
Dim ergebnis As String
text = "Nachname,Vorname,Personalnummer"
ret_eval = Evaluate( |@Word("| + text + |";",";1)| )
If Isarray(ret_eval) Then
ergebnis = ret_eval(0)
Msgbox ergebnis
End If
Andreas