Ho visto in un'altra discussione che il software in discussione è

Arena

e quindi il codice è VBA per Arena (il VB6 non c'entra nulla).

Da una ricerca su Internet vedo che il codice iniziale dovrebbe essere

Dim m As Model
Set m = ThisDocument.Model