RE:como sacar un sufijo a una palabra
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....