¿Cómo puedo hacer esto en VB8?

[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