até onde eu saiba, não existe nada pronto no VB pra isso...
mas da pra fazer programando...
testa esse codigo aki:
Private Sub Text1_Click()
Dim i As Integer, f As Integer
i = InStrRev(Left(Text1, Text1.SelStart), " ")
f = InStr(Right(Text1, Len(Text1) - Text1.SelStart), " ")
If f = 0 Then f = Len(Mid(Text1, Text1.SelStart))
f = Text1.SelStart - i + f
Text1.SelStart = i
Text1.SelLength = f - 1
End Sub
nao tenho certeza se vai funcionar pq eu fiz de cabeça...