Sub unrun()
    Dim objMyControl
    Set objMyControl = CreateObject("My.Control")
    'testing the result of our unix listing/command
    MsgBox objMyControl.doit
End Sub