Public Function fnSize(vSize,iDot)
Dim sSize:sSize="0"
If vSize>1073741824 Then
sSize=FormatNumber(vSize/1073741824,iDot,-1,0,0)&" GB"
ElseIf vSize>1048576 Then
sSize=FormatNumber(vSize/1048576,iDot,-1,0,0)&" MB"
ElseIf vSize>1024 Then
sSize=FormatNumber(vSize/1024,iDot,-1,0,0)&" KB"
Else
sSize=vSize&" Byte"
End If
fnSize=sSize
End Function