[Resolvido]Erro em tempo de execução ' 13' tipos incompativeis

Amigos,

estou com o seguinte problema ao abri um formulário que possui um campo calculado esta dando o seguinte erro.
"Erro em tempo de execução ' 13' tipos incompatíveis"

Segue o código que estou usando, a linha que esta apontando o erro e esta(soma = soma + Me.Lista.Column(2, x))

Private Sub Form_Current()
On Error Resume Next
Dim x
Dim soma
soma = 0
For x = 0 To Me.Lista.ListCount - 1
soma = soma + Me.Lista.Column(2, x)
Next
Me.Texto956 = soma
End Sub

Ja verificou se na Coluna 2 estão os valores? Ou será se nela nao tem algum texto?

Amigo,
Verifique a Coluna 2 e estava certo, refiz o código e agora funcionou
agradeço pelo apoio

Grato pelo retorno amigo, até a próxima se Deus Quiser!