interface not registered

I wrote Open Staad code in Excel VBA and worked perfectly fine. Later on I have tried to run it again I got the following  error message 

The error pointing to this statement in my code: 

 Set geometry = objOpenSTAAD.geometry

What is the problem and how to solve it ?