OK, I've finally got my brain in gear. Much simpler than I was thinking!
[VBA]
Sub Shows()
UserForm2.Show False
UserForm2.TextBox1 = Selection.Words(1)
End Sub

[/VBA]