Add decimal point at specific position

[sharky12345]

I'm using this to loop through a series of Textboxes on a Userform and enter a decimal point after the first 2 numbers entered;

Dim ctrl As MSForms.controlFor Each ctrl In Controls
If ctrl.Name Like "TextSTime*" Then
If Len(ctrl.Value) = 3 Then ctrl.Value = Left(ctrl.Value, 2) & "." & Right(ctrl.Value, 1)
End If
Next

I need something similar now - what I need is for it to add the decimal point before the last 2 numbers, regardless of how many are entered, (although I have limited the Textboxes to a maximum of 6 characters).

Some examples of what I'd expect to see:

101.98

91.45

8.73

Anyone?

 

[sharky12345]

No, nothing at all....

 

[Fluff]

In that case try

[COLOR=#0000ff]Dim DisableEvents As Boolean[/COLOR]
Private Sub TextBox1_Change()
   If DisableEvents Then Exit Sub
   DisableEvents = True
   With Me.TextBox1
      If Len(.Value) > 1 Then
         If InStr(.Value, ".") > 0 Then .Value = .Value * 1000
         .Value = .Value / 100
      End If
   End With
   DisableEvents = False
End Sub

The part in blue must go at the very top of the module, before any code.