Option Explicit

Sub fileSizeInfo()
Dim myFilepath As String
Dim myFilesize As Integer

myFilepath = "C:\Users\Dell\Desktop\Adobe Photoshop Cc 2019\"
myFilesize = FileLen(myFilepath & "1.xlsm")
Dim kbVal As Double
kbVal = myFilesize / 1024


MsgBox Format(kbVal, "0.00") & "KB"

End Sub