This code selects the current word. If the word is followed by a space it also selects that. If it is followed by punctuation, it doesn't select the punctuation.
Code:
Sub GetIt()
Dim aWord As Range
Set aWord = Selection.Words(1)
aWord.Select
End Sub