I get the following error and am stuck,  compile error
sub or function not defined. not sure what to do to fix it.

Sub MovePastDate2Today()
Dim t As TaskItem
Set f =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks)
strText
For Each t In f.Items
   If (t.DueDate < DateAdd("d", 2, Now)) Then
 strText = strText & (t.t.DueDate)

   End

   MsgBox strText

Next

On Error GoTo MovePastDate2Today_Error

MovePastDate2Today_Error:
MsgBox "Error " & Err.Number & "(" & Err.Description & ")"

End Sub