C/Visual C - Problema recursivo de Examen

typedef struct nodo {

int dato;

nodo* suc;

};

typedef nodo* puntero;

Public Function listaespecial(Li, Lf, p, tpc) As String

    Dim valor

    If p > (Len(Li) - 1) Then listaespecial = Lf: MsgBox "El número de pares primos era: " & tpc: Exit Function  ' caso trivial, hemos terminado de examinar la lista 1

    ' caso recursivo

    valor = CLng(Mid(Li, p, 1))

    siguiente = CLng(Mid(Li, p + 1, 1))

    If primo(valor, valor - 1) And primo(siguiente, siguiente - 1) Then

        Lf = Lf & valor & "0"

        tpc = tpc + 1

        p = p + 1

        ' y ahora la llamada recursiva

    Else

        Lf = Lf & valor

        p = p + 1

        ' y ahora la llamada recursiva

    End If

   listaespecial = listaespecial(Li, Lf, p, tpc)

End Function

Public Function primo(n, a) As Boolean

    If a <= 1 Then primo = True: Exit Function

    If (n Mod a) = 0 Then primo = False: Exit Function

    primo = primo(n, a - 1)

End Function

Private Sub Comando4_Click()

    ' defino las variables

    Dim listainicial As String

    Dim listafinal As String

    Dim posicion As Integer

    Dim contador As Integer

    ' inicializamos las variables

    listainicial = "" & INICIAL

    listafinal = ""

    posicion = 1

    contador = 0

  ' Protección

    If Len(listainicial) < 2 Then MsgBox "Al menos dos caracteres /  valores debe haber en la lista 1 que lo sepas": Exit Sub

   ' Lanzamos la función recursiva

    FINAL = listaespecial(listainicial, listafinal, posicion, contador)

End Sub