Public Sub Shamsi_date()
       
    Dim tskProjTask As Task             'Reference to a task object.
    Dim tsksProjTasks As Tasks
    Set tsksProjTasks = ActiveProject.Tasks
For Each tskProjTask In tsksProjTasks
        If Not (tskProjTask Is Nothing) Then            'Check to see if task exists and that is not a external task.
            If Not tskProjTask.ExternalTask Then
               tskProjTask.Text1 = FDate(Format(tskProjTask.Start, "yyyy/mm/dd"), True)
               tskProjTask.Text2 = FDate(Format(tskProjTask.Finish, "yyyy/mm/dd"), True)
               
            End If
        End If
    Next tskProjTask
End Sub