¿Cómo puedo hacer esto en VB8?

[soundmartell]

Hola A todos:
Ante todo aclarar que tengo muy pocos conocimientos sobre la programación y estoy en proceso de aprendizaje.
Estoy tratando de hacer un pequeño software en Visual Base 8 que buscará dentro de un String cuantas palabras terminan en un caracter determinado.
Como que las palabras están separadas por espacios pensé pasar el valor de un texbox a una variable, buscar dentro de ella el caracter espacio y retrocer para ver que caracter es, y en dependencia de cual sea incrementar el número de una variable.
Al final devolver el valor de cada una de las variables en varios textbox con un label "
X palabras terminan en S
X palabras terminan en A
y así sucesivamente.
Pues bien, ya le he dado mil vueltas a esto y no he podido hacer nada, con InStr,
Len, y cuantas funciones para tratamiento de cadenas.
Si me pudieran dar una idea de cómo desarrollar algo así me será de mucha ayuda.
Muchas gracias por su tiempo.
Livan

[Gakex]

pues si hace falta mucho mas para llegar a se bueno es el precio del éxito así que te invito a que sigas y compartas y ayudes en esta comunidad.

te paso la solución

Código:

Function Ojo(texto As String) As String

Dim Palabras As Integer
Dim PalabrasConA, PalabrasConB As Integer
Dim Char As String
Dim LastChar As String
Dim n As Integer
n = Len(texto)
    For x = 1 To n
    Char = Mid(texto, x, 1)
        If Char = " " Or x = n Then
        Palabras = Palabras + 1
        LastChar = Mid(texto, x, 1)
            Select Case LastChar
                Case "a", "A"
                PalabrasConA = PalabrasConA + 1
                Case "b", "B"
                PalabrasConB = PalabrasConB + 1
            End Select
        End If
   
Next
Ojo = "Se han contado " & Palabras & " en total, " & PalabrasConA & " terminan en a, " & PalabrasConB & " terminan con b"

End Function

Private Sub Command1_Click()
Label1.Caption = Ojo(Text1.Text)
End Sub

[soundmartell]

Gracias, Muchas gracias, ahora lo pruebo y ya le diré si tengo suerte.
Saludos,
Livan

[soundmartell]

Hola,
No he tenido suerte, no me funciona bien.
Primero me da un error en el código ya que Char no puede ser utilizado por ser un Keyword, le agregué un r en cada Char quedando Charr y lo solucioné pero no me devuelbe bien el test
Me detecta la cantidad de palabras pero no las que terminan en "a" o "b" como debería ser.
¿Alguna idea?
Muchas gracias por su tiempo y ayuda.
Livan

[pkj]

En VB2008 sería algo así:

Código vb:

Imports VB = Microsoft.VisualBasic
Public Class Form1
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox("Hay " & Cuenta("e", "esta es la frase que se envia a la funcion") & " palabras acabadas en E")
  End Sub
 
  Private Function Cuenta(ByVal QueAcabenEn As String, ByVal Texto As String) As Long
    Dim Matriz(0) As String
    Dim F As Long
    Matriz = Split(Texto, " ")
    For F = 0 To UBound(Matriz)
      If VB.Right(Matriz(F), Len(QueAcabenEn)) = QueAcabenEn Then Cuenta = Cuenta + 1
    Next
  End Function
End Class
 

Saludos

[soundmartell]

Gracias PKJ, Me funciona bien. Ahora lo adapto a mis necesidades. Gracias también a Gakex, hice algunos cambios en el código y ya me funciona.
Un saludo a todos,
Livan.