' Return the user's profile path.
Private Function ProfilePath() As String
Dim win_dir As String
Dim user_name As String
Dim ret_len As Long

    ' Get the windows directory.
    win_dir = Space$(256)
    ret_len = GetWindowsDirectory(win_dir, Len(win_dir))
    win_dir = Left$(win_dir, ret_len)

    ' Get the user's name.
    user_name = Space$(256)
    GetUserName user_name, ret_len
    user_name = Left$(user_name, ret_len)

    ProfilePath = win_dir & "\" & user_name
End Function