Formatting Textbox as percent with decimal places (0.00%)

[Enigmus345]

Hi everyone,
I'm really new to this so i apologise if i stuff it up. But I'm trying to format textboxes in the way that i mentioned with no success. I have formated them to display percent but no decimals. Here is my code
Private Sub gp_Change()
gp.Value = Format(Val(gp.Value) / 100, "0.00%")
gp.SelStart = Len(gp.Value) - 1
End Sub

This just returns an error. But if i remove the decimals it works fine. I'm sure this is a simple fix but i just can not find the answer anywhere.
Thank you in advance.

 

[Enigmus345]

Is this not as simple as it sounds or something??