Problema con texto seleccionado

[Sergio_Cima]

Saludos a todos.

Estoy haciendo un procedimiento que filtre datos, según el texto que el usuario seleccione en una casilla de un datagrid (como la opcion de filtrar de access)

El problema es que por lo visto, se me guarda lo que se seleccione de cada columna. Entonces al recorrer los controles para ver que texto hay seleccionado, me salen varios, no solo el que haya seleccionado el usuario, si no que tambien la primera casilla(que se selecciona automaticamente al recibir el foco el datagrid), y las demas selecciones que haya hehco en las diferentes columnas.

esta es la funcion que me dice cual es el texto seleccionado

Function TextoSeleccionado() As String
For Each ctr As Control In Grid1.Controls
If ctr.GetType Is GetType(DataGridTextBox) Then
If CType(ctr, TextBoxBase).SelectedText <> "" Then
MsgBox(CType(ctr, TextBoxBase).SelectedText)
End If
End If
Next
End Function

Si alguien puede decirme como conseguir que solo me enseñe la última seleccion que se haya hecho, lo agradeceria mucho.

Gracias