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

Keytronic E03601PS25PKB-C Wired KeyboardPrice:
US $55.30
Was US $70.00
Save US $14.70 (21% off)