En fait, c'est comme ça:


msgbox activeproject.tasks(1).Text1.Value