vba search $ sign ($2000 - $3000)

[Astro]

Hey si_the_geek

It is in text format because the application user ocasionally enters some text, her database is very inconsistent.

ive tried doing a replace but still doesn't work.

sMHouse = Me.TextMHouse
 
sMH = Split(sMHouse, " ")
 
sMHouse = "  and ( "
        
        Do While sMH(0) <= sMH(1)
            
            sMHouse = sMHouse & " ( Replace([Monthly Household],'$','') like '%" & sMH(0) & "%' ) or "
            sMH(0) = sMH(0) + 1
        Loop
        
         sMHouse = Mid(sMHouse, 1, Len(sMHouse) - 5)
         
         sMHouse = sMHouse & " or Replace([Monthly Household],'$','') not like '%" & sMH(0) & "%' or Replace([Monthly Household],'$','') not like '%" & sMH(1) + 1 & "%') and [Monthly Household] is not null ) "
MsgBox sMHouse