VBA Characters() Function Fails when the Cell Content Exceeds 261 Characters

I hope I don't need to give much description about the issue since the title and the code with an example file describes the issue very well.

Sub ReplaceCharacters()
    Range("A1").Characters(300, 27).Delete
End Sub

Any suggestion how to overcome this issue?