asp regular code filtering duplicate strings

<%
'Filter duplicates
Function norepeat(Str)
Dim RegEx
If IsNull(Str) Or Str="" Then Exit Function
Set RegEx=New RegExp
= True
=True
= True
="(.)\1+"
str=(str,"$1")
Set RegEx=Nothing
Norepeat=str
End Function
'Example
s="1223445677777778aabbcccccccccc"
Norepeat(s)
%>