Datagridview posizionarsi sulla riga selezionata

Buongiorno a tutti!
ho trovato in rete il codice per fare una ricerca in un datagridview e l'ho adattato alle mie esigenze. ecco il codice:

 Sub Find()
        DataGridView1.ClearSelection()
        Dim Str As String = TxtFind.Text.ToUpper
        Dim righe As Integer
        Dim parola As String
        Dim riga As Integer

        righe = DataGridView1.RowCount
        DataGridView1.MultiSelect = True
        For riga = 0 To righe - 1
            parola = DataGridView1.Item(1, riga).Value.ToString.ToUpper
            If parola.Contains(Str) Then
                DataGridView1.Item(1, riga).Selected = True

                DataGridView1.Item(0, 0).Selected = False
            End If
        Next
    End Sub

e funziona bene. Io vorrei però che quando trova un risultato e si seleziona nel datagridview, questo si posizionasse automaticamente (sulla prima oppure sulla ultima riga trovata visto che il datagrid l'ho impostato su multiselect)senza che l'utente debba cliccare sulla scrollbar.
Qualcuno mi aiuta?
Grazie