Wenn die Schaltfläche geklickt wird, gehst Du mit dem Wert aus A durch das Array von B durch und entfernst den entsprechenden Eintrag.
Dim b As Variant
b = doc.B
Forall elementb in b
If strRight (elementb, "|") = doc.A (0) Then
elementb = ""
Exit Forall
End If
End Forall
doc.B = Fulltrim (b)
Call uidoc.Refresh
Sinngemäß so. Hast Du in A den Alias, verwendest Du strRight, hast Du den Auswahlwert, verwende strLeft.
Ist nur zusammengeschrieben, muss nicht syntaktisch korrekt sein ...
EDIT: Natürlich kann A auch mehrere Werte enthalten, dann musst Du noch eine Schleife mehr drehen. Das zu bauen, überlasse ich aber Dir