Pessoal como contornar esta situação para o calculo aceitar que em alguns campos estejam vazios.
Outro detalhe em algumas circunstancias retorno da tabela nestes campos valores vazios
Como evitar o erro??

Private Function Calculo()
Dim Total1, Total2, Total3 As Double

 
   Total1 = Val(CustoB.Text) * Val(QuantidadeB.Text)
   Total2 = Val(CustoR.Text) * Val(Quantidade.Text)
   Total3 = Format(Val(Tempo), "#.##0,00") * 24 * Val(CustoO.Text)
    CustoU.Text = (Total1 + Total2 + Total3) / Val(Quantidade.Text)
  
   CustoU.Text = Format(Val(CustoU.Text), "currency")

End Function

private functio NulltoZero( nval as variant) as long

 

if isnull () then nval=0

nulltoZero =nval

 

end function

penso que algo assim deve resolver é so desenvolver a ideia e pt saudações