1/10 Sekunden-takt

Dieser Code soll möglichst im 1/10 Sekunden-Takt laufen.

Option Explicit

Dim blnStopp As Boolean
Sub BerechnungStarten()
blnStopp = False
Call Berechnung
End Sub

Sub Berechnung()
If Not blnStopp Then
Application.StatusBar = Format(Now, "DD.MM.YYYY HH:MM:SS")
Application.OnTime Now + TimeValue("00:00:01"), "Berechnung"
Else
Application.StatusBar = False
End If
End Sub

Sub BerechnungStopp()
blnStopp = True
End Sub

Kann mir jemand sagen wie das geht?

Danke
Gruß
Felix