Eu fiz tudo o que o professor fez mas o erro persiste. Vi o outro tópico e coloquei como números, geral e entre outros testes mas mesmo assim, dá erro!
Function fnCalculaMediaPeso(pTotalKilos As Double, PQtdViagens As Integer) As Double
If PQtdViagens <> 0 Then
fnCalculaMediaPeso = pTotalKilos / PQtdViagens
Else
fnCalculaMediaPeso = 0
End If
End Function
Esse foi o meu código.