Visual Basic - como sacar un sufijo a una palabra

Necesito sacar el sufijo de una palabra por ejemplo tengo recuperacion, tengo que quitarle cion y quedarme con recupera,o si tengo examenes quitarle enes y quedarme con exam

utiliza el comando mid

Ejemplo (examenes)
Mid("examenes", 1, Len(Text1.Text) - 4))

devuelve exam

saludos

Esto ya empieza a sonarme a cachondeo, no?. Ya está bien de copy/paste!!!!

Tienen razón los dos que respondieron, primero el del MID aunque también puedes usar el Left; y el segundo que dice que esta muy repetida la pregunta hace días

Querida Emma, ya esta bien de poner siempre la misma pregunta y obtener la misma respuesta por parte de todos los colaboradores de la Web, veo que eres demasiado INFANTIL para compartir conocimientos é inquietudes. Por favor deja el foro y cuida tus muñecas que te estan esperando.

Que tengas un día infantil

pues todo mundo le puso k usaras mid.... pero eso te sirve solo cuando conoces exactamente k palabra tienes y en donde esta la interseccion

mejor usa esto

Private Function Cadena(Fuente As String) As String
Dim i As Integer
Dim tmp As Integer
Dim encontro As Boolean
i = 0
tmp = Len(Fuente)
Do While i < UBound(sufijos) And encontro <> True
Fuente = Replace(Fuente, sufijos(i), " ", 1, 1) ' Remplaza el sufijo
'con espacios en blanco
If Len(Fuente < tmp) Then
encontro = True ' Si ya lo encontro termina el ciclo
End If
i = i + 1
Loop
Cadena = Fuente 'Si encontro algun sufijo regresa la variable sin el
'sufijo, y si no regresa la variable igual...
End Function

nada mas ocupas declarar un array global e inicializarlo Ej:

Option explicit
Private sufijos(10) as string

Private Sub Form_Load()

sufijos(0)="enes"
sufijos(1)="cion"
sufijos(2)....
sufijos(3)....

End Sub

y la funcion nada mas la llamas asi

text1.text = cadena("Examenes")

o si el texto a modificar esta en un textbox

text1.text = cadena(text1.text)

etc....