[Resolvido]funçao nao funciona

bom dia a todos tenho uma lçiosta box onde a coluna(3) mostra o preço do produto
criei a sguinte funçao:
' Verifica se a coluna 3 da linha selecionada está vazia ou igual a zero
If IsNull(Me.Lista.Column(3)) Or Me.Lista.Column(3) = 0 Then
MsgBox "A preço não pode estar vazia ou igual a zero.", vbExclamation, "Erro"
' Cancela o evento (desfaz a seleção)
Me.Lista = Null
Exit Sub
Else

Me!TXIDItem = Me.Lista.Column(0)
Me!TXNmiTEM = Me.Lista.Column(1)
Me!TXPRECO = Me.Lista.Column(3)
Me.TXQUANT = 1
txQuant_AfterUpdate
Me!TXQUANT.SetFocus
Me.BTGRAVA.SetFocus
End If
o problema e que
Esta indo para o campo TXPRECO onde tem uma função que calcula o valor da compra mutiplicando o preço pelo campo TXQUANT
E ai gera o erro" erro em tempo de execuçao "13 isso porque o campo preço esta vazio
como resolvo isso?

pessoal prblema resolvido ajustei a funao:
Dim valorColuna3 As Variant

' Obtém o valor da coluna 3 (índice 2) da linha selecionada
valorColuna3 = Me.Lista.Column(3)

' Verifica se a coluna 3 está vazia ou igual a zero
If IsNull(valorColuna3) Or Not IsNumeric(valorColuna3) Or valorColuna3 = 0 Then
MsgBox "O Campo preço não pode estar vazio, ou igual a zero.", vbExclamation, "Erro"
' Cancela a seleção da ListBox
Me.Lista = Null
Exit Sub ' Sai do evento para evitar o erro

Exit Sub

obrigado a todos