I know that my english can be better. Please rate my work and not my lack in linguistic skills!

If you find any kind of ownership issue, or you think some content is your property. Please be so kind and contact me, i will remove or solve it ASAP.

You like my free Uploads and want to support me, than please donate here:

        If Len(tbsearch.Text) > 2 Then
            Dim arrtext As String
            Dim searchtext As String = "*" & tbsearch.Text.ToUpper & "*"
            For Each Array In searcharr
                Dim testchek As Boolean
                arrtext = Array.ToUpper
                testchek = arrtext Like searchtext
                If testchek = True Then
                    searchlistarr.Add(Array)
                End If
            Next
        End If