Rounding errors

I've created a small VBA code to calculate the percentage using two cells.
The relevant code is simple. Similar to something like this:

Please Login or Register  to view this content.

Now, when I enter "1000" into cell "val1" and "123" into cell "val2", the result should be 12,3 %, but instead it says "12". I've already tried increasing the number of decimals in the cell and it didn't work.Please help. Thanks

Edit: The wierd part is that it works fine for another cell, just not the one I want the result to be in.
Edit2: If you need the entire code, please let me know.

Hi,

This code works fine for me. There must be some formatting issue with the result cell, or the value is truncated elsewhere in your code.

Alright, I've found out the problem is somewhere in my code because I can see the "12" change to "12,3" for 1 milisecond then change to "12".

Sooo... here's the entire code:

Please Login or Register  to view this content.

And here's a screenshot to show you my problem:
\1
As you can see, the testing cell to the left shows the correct value (12,3) while the main cell shows only 12,00.