Daniela Oliveira

Bom dia, poderiam me ajudar no excel 2013, aparece probabilidade 1 ao invés da msgbox, e aparece também a mensagem: erro de execução 13 tipos incompatíveis. Sub retorno() Dim p1 As Single Dim p2 As Single Dim P3 As Single Dim R1 As Single Dim R2 As Single Dim R3 As Single Dim retmd As Single p1 = CSng(InputBox(" probabilidade 1 = ")) p2 = CSng(InputBox(" probabilidade 2 = ")) P3 = CSng(InputBox(" probabilidade 3 = ")) R1 = CSng(InputBox("retorno 1 = ")) R2 = CSng(InputBox("retorno 2 = ")) R3 = CSng(InputBox("retorno 3 = ")) retmd = R1 * p1 + R2 * p2 + R3 * P3 MsgBox ("O resultado é = " & retmd) End Sub