Dim FormatKB As Double
    Dim FormatMB As Double
    Dim PercentAvail As String
    Dim PercentUsed As String
    Dim path As String
    Dim fso As New Scripting.FileSystemObject
    Dim folder As Scripting.folder
 
    With cbox_fail
        If .ListIndex > 0 Then
        path = cbox_fail.Text
        Set folder = fso.GetFolder(path)
        FormatKB = folder.Size / 1024
        FormatMB = folder.Size / 1024 / 1024
        lbl_KBfail.Caption = Round(FormatKB, 2)
        lbl_MBfail.Caption = Round(FormatMB, 2)
        PercentUsed = (lbl_KBfail.Caption * 1024) * 100 / (txt_maxsize.Text)
        lbl_percentusedfail.Caption = Round(PercentUsed, 1)
        lbl_percentavailfail.Caption = 100 - lbl_percentusedfail.Caption
        lbl_ordnernamefail.Caption = cbox_fail.Text
        End If
    End With