Danke für den Vorschlag genau so funktioniert es:
var =uiws.pickliststrings(picklist_custom, False,"Misebg02ds","Alg/Kostenstv.nsf","Kostenst","Wählen sie eine Kostenstellen aus","Dokumentenwahl",2)
If Isempty(var) Then Exit Sub
test$=var(0)
For i =1 To Len(test$)
If Mid$(test$,i,1)="~" Then
'Msgbox i
nam$ = Right$(test$,Len(test$)-i-1)
nr$ = Left$(test$,i-2)
i=Len(test$)
End If
Next
Call uidoc.Fieldsettext("Gerät",nam)
Call uidoc.Fieldsettext("Kostenstelle",nr)
mfg robertpp