求高手帮帮忙啊，一个VBA编程题我不会做。。。题目如下

Function TrainCarriage(Human As String, Weight As Double, Distance As Double) As Double If Human = "Adult" Then If Weight > 20 Then If Distance > 100 Then TrainCarriage = Distance * 0.2 Else