Dim Principal, Time, Rate, SimpleInterest
Principal = CDbl (InputBox ("Please enter the Principal"))
Time = CDbl (InputBox ("Please enter the Time"))
Rate = CDbl (InputBox ("Please enter the Rate"))
SimpleInterest = (Principal * Time * Rate)/100
MsgBox SimpleInterest