Regular expressions

I don't know about a regular expression but this should do the same

Public Function removedbl(ByVal s As String) As String
        Dim returnstring As String
        Dim x As String = ""
        For y As Integer = 0 To s.Length - 1
            If Not s.Substring(y, 1) = x Then
                returnstring += s.Substring(y, 1)
                x = s.Substring(y, 1)
            End If
        Next
        Return (returnstring)
    End Function

Here is a resource of hundreds of already made regexpressions.

http://regexlib.com/DisplayPatterns.aspx

Thanks Bob, that sort of works but it only seems to perfrom the replace if an odd number of characters are encountered.  It will replace 'a' or 'aaa' to 'a' but leaves out 'aa' or 'aaaa'

Yeah, I noticed that too.  You could try a While...End While loop, until their are no more matches.

Bob

([\w])\1+

Bob