Code:

E = Val(Label10.Caption)
Let F = E
For v = 1 To Len(F)
Let U = Mid(F, v, 1)
If U = "." Then
Let N = Right(Label10.Caption, 2)
Let N = Left(N, 1)
If N = "." Then Let Label10.Caption = "£" & E & "0" Else Let Label10.Caption = "£" & E
Exit For
Else
If v = Len(F) Then Let Label10.Caption = "£" & E & ".00"
End If
Next v

This code is meant to convert a calculated label into pounds and 2 decimal places, and it partially work, but it does it to more that 2 dp.

Can anyone fix it?

Also can anyone explain this code to me set by step because I don't understand how it works?

Thanks