Trying to get my result to just 2 decimal places using the 'Round" function but it' not working for me. This code gives a result of 0% ??? Code: Dim prmAmnt As Integer Dim totAmnt As Integer Dim perAmnt As Single prmAmnt = prmBox.Text totAmnt = totBox.Text perAmnt = Round((prmAmnt / totAmnt * 100), 2) TextLabel1.Text = perAmnt & "%"