Private Function SuccessivelyThreeIdenticalDigits _
    (ByVal str As String) As Boolean
    Dim re As Regex = New Regex("(\d)\1\1")
    Dim mc As MatchCollection = re.Matches(str)
    If mc Is Nothing Then
        Return False
    Else
        Return True
    End If
End Function