nlibro = InStr(UCase(.Text), UCase(txtbusqueda.Text))

msgbox nlibro

Option Explicit
 
Private Sub Command1_Click()
    Call Buscar("Palabra 100")
End Sub
 
Private Sub Form_Load()
    With MSHFlexGrid1
        .FixedCols = 0
        .FocusRect = flexFocusNone
        .SelectionMode = flexSelectionByRow
 
        .FormatString = "Items"
 
        Dim i As Integer
 
        For i = 1 To 1000
            .AddItem "Palabra " & (i)
        Next
 
        .ColWidth(0) = 1500
        .RemoveItem 1
    End With
End Sub
 
Private Sub Buscar(ByVal pPalabra As String)
    Dim i As Long
 
    For i = 1 To MSHFlexGrid1.Rows - 1
        If LCase(MSHFlexGrid1.TextMatrix(i, 0)) = LCase(pPalabra) Then
           MSHFlexGrid1.Row = i
           MSHFlexGrid1.RowSel = i
           MSHFlexGrid1.Col = 0
           MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
           MSHFlexGrid1.TopRow = i
           Exit For
        End If
    Next i
End Sub