Sub ファイルのサイズを取得する()

    対象ファイル = "C:\sample.xlsm"
    
    '【参考】B = Byte(バイト)
    
    Bサイズ = FileLen(対象ファイル) 'B
    KBサイズ = FileLen(対象ファイル) / 1000 'B→KB 変換
    MBサイズ = FileLen(対象ファイル) / 1000 / 1000 'B→KB→MB 変換
    
    MsgBox _
           " B表記：" & Bサイズ & " B" & vbCrLf & _
           "KB表記：" & KBサイズ & " KB" & vbCrLf & _
           "MB表記：" & MBサイズ & " MB"

End Sub