Help Again with regular expression

[jinnah]

Hi Finally I could make it work Thanks buddy!

Code:

SelectionItem=Browser("").Page("").WebList("").GetROProperty("selection")

Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "#[0-50]+"
blnResult=RegEx.Test(SelectionItem)

If blnResult=True Then
Reporter.ReportEvent micPass,"Value selected from <ComplainingParty>",""
    Call Logger(1,"Value selected from <Allegations>")
    else
    Reporter.ReportEvent micFail,"Value not selected from <ComplainingParty>",""
    Call Logger(2,"Value not selected from <Allegations>")
End If
Set RegEx=Nothing

Thank you very very very much