Used these before, but can't test now because something in my Outlooks seems
to be corrupt.  Try all three; I believe at least one will work for you:

Sub CreateTask()
Dim objApp As Outlook.Application
Dim objTask As Outlook.TaskItem
     
    Set objApp = CreateObject("Outlook.Application")
    Set objTask = objApp.CreateItem(olTaskItem)
       With objTask
           .Subject = "Subject"
           .StartDate = CDate(ProximaFechaAcumulada) - CDate(15)
           .DueDate = CDate(ProximaFechaAcumulada)
           .Importance = olImportanceHigh

           .Body = "Body" 'Here    I need Right to Left
     
           .Save
          .ReminderSet = True
       End With
End Sub

Sub AddTaskToOutlook()
   Dim objOutlook As Object
   Dim objTask As Object
   Dim NextStep As String
   Dim ProjName As String
   Dim cell As Range
   Const olTaskItem = 3
   
   'Get the data
    NextStep = Range("C1")
    ProjName = Range("C2")
   
'   Set objOLapp = CreateObject("Outlook.Application", "localhost")

   Set objOutlook = CreateObject("Outlook.Application")
   Set objTask = objOutlook.CreateItem(olTaskItem)

  objTask.Subject = NextStep
  objTask.Save
   
  Set objOutlook = Nothing
  Set objTask = Nothing

End Sub

Sub GeneratingTaskInOutlook()
   Dim objApp As Object
   Dim OutTask As Object
   
   Set objApp = CreateObject("Outlook.Application")
   Set OutTask = objApp.CreateItem(olTaskItem)
   With OutTask

       .StartDate = Date
       .DueDate = GetNextDay(Date, 1)
       .Importance = olImportanceHigh
       .Display
       .ReminderSet = True
   End With
End Sub

Regards,
Ryan---