Option Compare Database
Option Explicit
Declare Function Get_User_Name Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, _
    nSize As Long) As Long
Function GetUserName() As String
    Dim lpBuff As String * 25
    Get_User_Name lpBuff, 25
    GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
    
End Function
Function PathToPictures() As String
 
    PathToPictures = "C:\Users\" & GetUserName & "\Pictures"
End Function