My.User.Name.ToString()
これだけです（笑）
ちなみに、（コンピュータ名）\ユーザ名ってな感じで値が返ります。
ちょっとしたサンプル：
Sub GetNowUserName()
MessageBox.Show(My.User.Name.ToString())
End Sub