Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub TextBoxBtw_Change() CommandButtonBtw.Enabled = False Dim TrimmedResult As String Dim IsResultNumeric As Boolean TrimmedResult = Replace(TextBoxBtw.Text, " ", "") TrimmedResult = Replace(UCase(TrimmedResult), "FR", "") IsResultNumeric = IsNumeric(TrimmedResult) If Len(TrimmedResult) = 11 And IsResultNumeric = True Then Dim controlNumber As Integer Dim sirenNumber As Integer controlNumber = Mid(TrimmedResult, 1, 2) sirenNumber = Mid(TrimmedResult, 3) If controlNumber = (12 + 3 * (sirenNumber Mod 97)) Mod 97 Then CommandButtonBtw.Enabled = True End If End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.