Visual Basic - Obtener Ruta Usuario

Hola muy buenas, alguien sabe como puedo obtener la ruta de la carpeta del usuario con el que he iniciado el equipo desde visual basic 6??

Muchas gracias.
Un saludo.

Private Sub Command1_Click()
MsgBox Environ("UserProfile")
End Sub

Me voy a la cama sabiendo una cosa mas.
Gracias Ingeniero.