Пишешь функцию:

Function Test(Text as string)
dim varArray as variant
dim UpperBound as integer
dim i as integer
varArray=split(Text, " ")
test=""
UpperBound = iif (Ubound(varArray)>2, 2, Ubound)
for i=0 to UpperBound
test=test & " " & varArray(i)
next
end function