Public Function fnLast2Words(ByVal sp As String) As String
Dim var
sp = sp & ""
If Len(sp) Then
Do Until InStr(1, sp, " ") = 0
sp = Replace$(sp, " ", " ")
Loop
var = Split(sp, " ")
If UBound(var) > 0 Then
fnLast2Words = Trim$(var(UBound(var) - 1)) & " " & Trim$(var(UBound(var)))
End If
End If
End Function