This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
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.