erro em tempos de execução 13

[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

 

Editado Novembro 11, 2021 por Daniela Oliveira