Visual Basic.NET - Saber tamaño de carpeta del usuario activo de windows

Dim NombreDelUsario As String = Environment.UserName

Dim CarpetaDelUsario As String = Environment.SystemDirectory.Substring(0, 2) & "\Users\" & Environment.UserName

Dim CarpetaDelUsario As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile) '   Directory.Substring(0, 2) & "\Users\" & Environment.UserName

Dim Tamana As Long = 0

Dim CantidadLineas As Integer = 0

Dim Contador As Integer = 0

System.Diagnostics.Process.Start("CMD.exe", " /C DIR " & CarpetaDelUsario & " /-c /s > XDD.PHR").WaitForExit()

Dim FicheroTmp As New StreamReader("XDD.PHR")

Do Until FicheroTmp.Peek = -1

    FicheroTmp.ReadLine()

    CantidadLineas += 1

Loop

FicheroTmp.Close()

FicheroTmp = New StreamReader("XDD.PHR")

Do Until Contador = CantidadLineas - 2

    FicheroTmp.ReadLine()

    Contador += 1

Loop

Dim InformacionTmp As String = FicheroTmp.ReadLine()

FicheroTmp.Close()

File.Delete("XDD.PHR")

InformacionTmp = InformacionTmp.Replace(" ", "#").Trim("#")

InformacionTmp = InformacionTmp.Substring(0, InformacionTmp.LastIndexOf("#"))

InformacionTmp = InformacionTmp.Substring(InformacionTmp.LastIndexOf("#") + 1)

Tamana = CType(InformacionTmp, Long)