Try:
LastRow.Offset(1, 4).Text = Format(DOBText, "yyyy-mm-dd")
Also check the cell format so it reflects "yyyy-mm-dd".