Dim objArrProcess As System.Diagnostics.Process() = _
  System.Diagnostics.Process.GetProcessesByName("explorer")
Dim strCurrentUserName As String = objArrProcess( _
0).StartInfo.EnvironmentVariables("username")
Dim strCurrentUserProfile As String = objArrProcess( _
0).StartInfo.EnvironmentVariables("userprofile")