Dim A As String,b As String
   a= Trim(Str(Format(Folder.Size,"###.###")))
   Select Case Folder.Size
        Case Is > 1000
                b = a + " KB"
        Case Is > 1000000
                b = a + " MB"
        Case Is > 1000000000
                b = a + " GB"
        Case Else
                b = a + " Byte
   End Select
 
   MsgBox b