The Last Word.

[jkurpias]

Dim myString As String
'load myString with the file...for this 'example, I just used some text:
myString = "Basically Visually Impaired. "
'remove extra spaces:
myString = Trim(myString)
'remove final period:
myString = IIf(Right$(myString, 1) = ".", Left$(myString, Len(myString) - 1),_ myString)
'get last word:
Label1 = Right$(myString, Len(myString)_
- InStrRev(myString, " "))