Dovrebbe bastare la funzione Environ

Environ("USERPROFILE")

per ottenere il percorso utente