Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
Dim Nf1 As String Dim cArrSql As Variant Dim cD As String Dim x As Integer cD = UserForm2.TextBox33 ' how many items are in the box ? build an array cArrSql = Split(cD, " ") Dim w As String ' new CODE FOR idata description match ' search through the text box requests tokens For x = LBound(cArrSql) To UBound(cArrSql) If x = UBound(cArrSql) Then Nf1 = Trim(Nf1 & cArrSql(x) & "%") Else If x = 0 Then Nf1 = Trim("%" & Nf1 & cArrSql(x) & "%") Else Nf1 = Trim(Nf1 & cArrSql(x) & "%") End If End If Next Nf1 = Nf1 MsgBox Nf1, vbCritical
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.