[vb 6] come settare oggetto variabile

[alex688]

ho riscritto ma comunque mi da lo stesso errore. Qlc mi può aiutare

Dim m As model    
Dim themod As Module     
Dim i As Long    
set m = model    
i = m.Modules.Find(smFindTag, "object.779")     
Set themod = m.Modules(i)     
themod.Data("Value(1)") = "NORM(4.35,1.838)"