VB and Rhino3D V3 startup issue

Rhino3D V3.  If the executable (Rhino3.exe) has not been started we'll need to fix the load statement:

Load statement
Set Rhino = CreateObject("Rhino3.Application")
For i = 1 To 10 ' on my box it accepted To 5
    DoEvents ' or to use Sleep API ... or just something to wait
Next
If IsObject(Rhino) Then
    Set RhinoScript = Rhino.GetScriptObject()
    'Label1.Caption = "rhino loaded OK!"
End If
otherwise we might get the error: '424' object required at the GetScriptObject