Sure - I'll give it a shot - this line ->
AnswerSent = "" & Trim(OriginalSentence)
Is there suposed to be a space between the quotes? If not, then just do this ->
AnswerSent = Trim(OriginalSentence)
But I'm thinking something has happened early on in your brain to OriginalSentence... have done any debugging to see what is in Originalsentence???