[RESOLVED] Remove $ from text

[matrik02]

How to remove $ from listbox? I have text like this in my listbox. I want to remove all
AAAAA$,
BBB$
CCC$
ddd$

I want to remove this symbol $ from text to be display like this

AAAAA,
BBB
CCC
ddd

For i = 0 To List1.ListCount - 1 'select sheet
        If List1.Selected(i) = True Then
        Dim sheet As String
            sheet = (List1.List(i))
        End If
    Next

[Hack]

For i = 0 To List1.ListCount - 1 'select sheet
        If List1.Selected(i) = True Then
        Dim sheet As String
            sheet = (List1.List(i))
            sheet = Replace(List1.List(i)),"$",""
        End If
    Next

[matrik02]

It appear with red color when I paste it. Why?Mybe something wrong with this line

sheet = Replace(List1.List(i)),"$",""

[Hack]

I typed it off the top of my head, and got the parentheses messed up.

It should be:

sheet = Replace(List1.List(i), "$", "")

Sorry 'bout that.

[matrik02]

Thank you.. It work now

[Hack]

And there really isn't any reason to continually recreate your variable, so I would move the Dim statement outside of the loop.