Underscore in member name not displaying in multiselect listbox

    Dim MemberListstart As String = "E#Root.TreeDescendantsInclusive.Remove(None)"
                    
    Dim objMemberListHeader = New MemberListHeader(args.MemberListArgs.MemberListName)
    
    'Read the members
    Dim objMemberInfos As List(Of MemberInfo) = api.Members.GetMembersUsingFilter(args.MemberListArgs.DimPk, MemberListstart, Nothing)
    
    'Sort the members
    Dim objMembers As List(Of Member) = Nothing
    If Not objMemberInfos Is Nothing Then
        ' Get the Distinct values ie no duplicate members
        objMembers = (From memberInfo In objMemberInfos Order By memberInfo.Member.Name Ascending Select memberInfo.Member Distinct).ToList()
    End If
    
    'Return
    Return New MemberList(objMemberListHeader, objMembers)