[Resolvido]transformar código em função

Amigos, neste código que soma as colunas de uma listBox.. preciso transformá-lo em uma função que me devolva na caixa texto o total da soma


Function SomaColuna(Y As Integer)
On Error Resume Next
Dim x, Soma
Dim StrTeste
Soma = 0
For x = 1 To Me.lstConsulta.ListCount - 1
Soma = Soma + Me.lstConsulta.Column(Y, x)
Next
MsgBox Soma
End Function

Eu aplico:

Me.CaixaTexto = SOmaColuna(

Efetua a soma porem não retorna o valor da variável soma na caixa texto..

COmo serão efetuados a soma de diversar colunas pensei em criar a função e no caregamento da caixa, fazer ja a soma utilizando a função...
Do jeito que esta au aplico:
Me.CaixaTexto = SomaColuna(

Olá Hary

Pense numa função equivalente a uma variável. Então é preciso passar o valor para este variável(função).

Function SomaColuna(Y As Integer)
On Error Resume Next
Dim x, Soma
Dim StrTeste
Soma = 0
For x = 1 To Me.lstConsulta.ListCount - 1
Soma = Soma + Me.lstConsulta.Column(Y, x)
Next
SomaColuna = soma
End Function

Está faltando também vc passar o valor do argumento y

Me!CaixaTexto = SomaColuna(1)

Sucesso!

Obrigado avelino, eu ate ja havia feito isto certa vez quando criei uma função para transformar coordenadas Geograficas em coordenadas decimais... Mas ontem isso fugiu-me a cabeça.. Talvez o cançasso ou mesmo falta de atenção..

Obrigado.

Cumprimentos