'search in a text

    'search in a text
    Private Sub Search()


        Dim a As String
        Dim b As String
        a = txtSearchBox.Text
        b = InStr(txtStringsSaved.Text, a)
        If b Then
            txtStringsSaved.Focus()
            txtStringsSaved.SelectionStart = b - 1
            txtStringsSaved.SelectionLength = Len(a)
        Else : MsgBox("No text Found!")
        End If
    End Sub