¿Cómo puedo hacer esto en VB8?

[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