Codestore: It’s Always The Simple Tips That Are Best

Replace

Dim tmpVar as Variant
Dim commonUsername As String
tmpVar = Evaluate( |@Name( [CN] ; @UserName )| )
commonUsername = tmpVar(0)

with

Dim commonUsername As String
commonUsername = Implode(Evaluate(|@Name([CN];@UserName)|))

See full post at Codestore.net (It’s Always The Simple Tips That Are Best) and a link to Tommy who first blogged about it.