این طوری فکر کنم مشکل حل می شه:
Case Is = 20
Select Case temp
Case temp = vbCr Or temp = vbLf
CurrentLetter = CurrentLetter + 2
CreateNewWord NewLine, CurrentWord
CurrentWord = ""
state = 1
Case " "
CurrentLetter = CurrentLetter + 1
CurrentWord = ""
state = 1
Case ""
Exit Do
Case Else
CreateNewWord Error, temp
CurrentLetter = CurrentLetter + 1
CurrentWord = ""
state = 1
End Select