How to set file size in KB,MB,Byte

Dim Size As Decimal = 0
Dim Title As String = ""
Dim TStr As String = ""
Dim FileSize As Decimal = 0
FileSize = PRow.Item("FileSize")
If FileSize > 1024 Then
If FileSize > 1024 * 1024 Then
Size = Decimal.Round(FileSize / (1024 * 1024), 2)
Title = " MB"
TStr = Size.ToString & Title
Else
Size = Decimal.Round(FileSize / 1024, 2)
Title = " KB"
TStr = Size.ToString & Title
End If
Else
Size = FileSize
Title = " Bytes"
TStr = Size.ToString() & Title
End If