Private Function SuccessivelyThreeIdenticalDigits2 _
    (ByVal str As String) As Boolean
 
    If str Is Nothing OrElse str.Length < 3 Then Return False
 
    Dim re As System.Text.RegularExpressions.Regex = _
       New System.Text.RegularExpressions.Regex("(\d)\1\1")
 
    Dim mc As System.Text.RegularExpressions.MatchCollection = _
       re.Matches(str)
 
    If mc Is Nothing OrElse mc.Count = 0 Then
       Return False
    Else
       Return True
    End If
End Function