¿Como poner formato de porcentaje a un macro de InputBox?

Este es el cóigo:

Do

N = N + 1
ResPR3 = InputBox("¿Qué porcentaje del valor invertido desea retirar el año " & N & "? Recuerde que como máximo puede retirar en los 3 años un 10% del valor invertido.", "Rescate Año " & N)
Hoja2.Cells(9, 2 + N) = ResPR3
Loop Until N = A
Else
End If