"The value of current should always be the value of total resistance"
Shouldn't it be Voltage/Total resistance?
In the line current = CLng(Me.TextBox1.Value) / ResTotal you should probably replace CLng with CSng (though it still works OK here)
A single value will show up to 8 numbers (ie 0.1234567) My guess is your shape is too small to show them all?? Sometimes of course they are not all needed.
If need be you can use ROUND to set the max number of decimal places
ROUND(1.234567,3)= 1.235
|