'subscript is out of range'

[SamT]

CDate(0) = 12:00:00AM

Take a look at otr.Paragraphs(2).Text when you get the error

If ipos > 0 Then 
    thisDate = CDate(Left(otr.Paragraphs(2).Text, ipos - 2)) 
Else 
    msgbox otr.Paragraphs(2).Text '<-- add line
    thisDate = CDate(otr.Paragraphs(2).Text) 
End If