You can use the environmental variables...

VB Code:
  1. Dim strUser
  2.   strUser = Environ("Username")
  3.   MsgBox strUser