ضمنا یه اشتباهی هم هست. باید به جای
Case temp = vbCr Or temp = vbLf
CurrentLetter = CurrentLetter + 2
CreateNewWord NewLine, CurrentWord
CurrentWord = ""
state = 1
نوشت :
Case vbCr
CurrentLetter = CurrentLetter + 2
CreateNewWord NewLine, CurrentWord
CurrentWord = ""
state = 1
Case vbLf
CurrentLetter = CurrentLetter + 2
CreateNewWord NewLine, CurrentWord
CurrentWord = ""
state = 1