Public WithEvents SC As MSScriptControl.ScriptControl
Public WithEvents VC As ValueClass

Private Sub Form_Load()
Set VC = New ValueClass
Set SC = New MSScriptControl.ScriptControl
SC.Language = "VBScript"
SC.AddObject "VC", VC, True

SC.AddCode "Sub test()" & vbCrLf & _
"anyValue = 10" & vbCrLf & _
"VC.Value = anyValue" & vbCrLf & _
"anyValue = 20" & vbCrLf & _
"VC.Value = anyValue" & vbCrLf & _
"End Sub"

SC.Run "test"
End Sub

Private Sub VC_ValueEvent(ByVal v As Variant)
    Debug.Print "ScriptControl изменил переменную anyValue на " & v
End Sub

Private cValue As Variant
Public Event ValueEvent(ByVal v)

Public Property Let Value(v As Variant)
    cValue = v
    RaiseEvent ValueEvent(cValue)
End Property

Public Property Get Value() As Variant
    Value = cValue
End Property