ファイルサイズ取得 Select Case 使用

ファイルサイズ取得ファンクションを作ってみた。
型がオブジェクトなのは、文字や数値をまとめて配列に入れたかったからで、そうでなければ Double がいいかな。

Private Sub method(ByVal FullPath As String)
	Dim info As New System.IO.FileInfo(FullPath)
	Dim FileSize As object = ChangeFileSize(info.Length)
End Sub
Function ChangeFileSize(ByVal FileSize As Object)
	Dim dFileSize = CType(FileSize, Double)
	Select Case dFileSize
		Case 0 To 1024
			Return "1 KB"
		Case (1024 + 1) To (1024 ^ 2)
			Return Math.Round((dFileSize / 1024), 0) & " KB"
		Case ((1024 ^ 2) + 1) To (1024 ^ 4)
			Return Math.Round((dFileSize / (1024 ^ 2)), 2) & " MB"
		Case ((1024 ^ 4) + 1) To (1024 ^ 8)
			Return Math.Round((dFileSize / (1024 ^ 4)), 2) & " GB"
		Case ((1024 ^ 8) + 1) To (1024 ^ 16)
			Return Math.Round((dFileSize / (1024 ^ 8)), 2) & " TB"
		Case Else
			Return dFileSize
	End Select
End Function