Regexp for VBA ~ Atypical or Favorite examples

Option Explicit
Sub Main()
    Dim match As Object, word As Object
    Dim words As String
    Dim xItem As Integer
    words = "trellliseee, Seebbr, lattttter, summmmer, hoooarsooe, lesser, aaardvark, stunned"
    With CreateObject("VBScript.RegExp")
        .Global = True


        .pattern = "(.)\1+"
        For Each word In Split(words, ",")
        Set match = .Execute(word)
            '  If match.Count > 0 Then
            For xItem = 0 To match.Count - 1
                Debug.Print match(xItem) & "  in " & match(xItem).FirstIndex & " found  " & match(xItem).Length
            Next
            '  End If
            Debug.Print word
            Debug.Print .Execute(word)(0)
            Debug.Print "$1 " & .Replace(word, "$1")
            Debug.Print "$& " & .Replace(word, """$&""")
            Debug.Print "$+ " & .Replace(word, "$+")
            Debug.Print "$_ " & .Replace(word, "$_")
            Debug.Print "$` " & .Replace(word, "$`")
            Debug.Print "$' " & .Replace(word, "$'")
            Debug.Print .Replace(word, String("$1", Chr(32))) & " " & .Execute(word)(0)
            Debug.Print .Replace(word, String("$1", "~"))
            Debug.Print .Replace(word, String("$3", "~"))
            Debug.Print " "
        Next
    End With
End Sub