Calculate oder Change

ich habe folgende Sub.

Private Sub GetOn_Click()

Dim mcp As Object
Dim var As String
Dim value As Variant

Set mcp = CreateObject("WinCC-Runtime-Project")

cell = "G4"

var = Range(cell)
value = mcp.GetValue(var)
Range("H4").value = value

End Sub

, die möchte ich aber nun zyklisch aufrufen.
Ich bin ein Anfänger, und kenne die vielen Befehle noch nicht.
Wie kann ich den Wert der Variablen zyklisch aufrufen, ohne
den Button zu aktivieren?