[VB.net 05] Funções

[Palmeira]

boas estou com um problema no seguinte código :

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim linha, nfich, res As String

        nfich = TextBox1.Text + ".txt"

        FileOpen(1, nfich, OpenMode.Input)
        res = ""
        Do While Not EOF(1)
            linha = LineInput(1)
            res = res & vbCrLf & linha
        Loop
        TextBox2.Text = res
        FileClose(1)
        textbox3.Text = contapal(TextBox2.Text)

    End Sub

este código é o que chama a função contapal() [que deve estar incorrecto, mas pronto.]

Agora, a função propriamente dita :

Module funcoes
    Function contapal(ByVal x As String) As Integer

        Dim l, i As Integer
        Dim esp As Integer

        l = Len(x) : esp = 0
        For i = 0 To l
            If Mid(x, i, 1) = " " Then esp += 1
        Next
        Return esp + 1
    End Function

End Module

em anexo envio o programa completo para verem como está organizado/estruturado.

Desde já obrigado,

Palmeira

[Revolt]

numa passagem rápida não detecto nenhum erro de maior. Qual é que é o problema mesmo?

[Ivo Pereira]

Sim, podias ter especificado qual é o problema... não somos bruxos  ?