Soru Dosya yolu değişken atamak

[MOZCELİK53]

Merhaba aşağıdaki koda nasıl bir değişken atayabilirim ? Sadece kalın olan kullanıcı ismini pc ye gore otomatik seçmesini istiyorum .
"C:\Users\Reis\Desktop\NEWSS\intro1.mp4" - "C:\Users\mhozcelik\Desktop\NEWSS\intro1.mp4"

Sub NewTest()
With New UserForm1
Set MoviePlayer = .WindowsMediaPlayer1
MoviePlayer.URL = "C:\Users\mhozcelik\Desktop\NEWSS\intro1.mp4"
MoviePlayer.uiMode = "None"
MoviePlayer.stretchToFit = False
MoviePlayer.Top = .Top + 1
MoviePlayer.Left = .Left + 1
MoviePlayer.Height = .InsideHeight - 2
MoviePlayer.Width = .InsideWidth - 2
MoviePlayer.Controls.Play
.Show


End With
End Sub

 

[Muzaffer Ali]

Merhaba.

MoviePlayer.URL = Environ("UserProfile") &  "\Desktop\NEWSS\intro1.mp4"

 

[MOZCELİK53]

Merhaba.

MoviePlayer.URL = Environ("UserProfile") &  "\Desktop\NEWSS\intro1.mp4"

Teşekkür Ederim Muzaffer Bey