[Amin_Mansouri]

این سورس با وی بی 6 بود که تابع هم براش ساختم.
بایت رو تبدیل به کیلوبایت و مگابایت میکنه
سورس:

کد:

Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String



Private Sub Form_Load()
MsgBox ByteToKb("1123455")

End Sub

Public Function ByteToKb(InputNumber As String) As String
On Error Resume Next
    Dim Buffer As String
    Dim Result As String
    Buffer = Space$(255)
    Result = StrFormatByteSize(InputNumber, Buffer, Len(Buffer))

    If InStr(Result, vbNullChar) > 1 Then
        ByteToKb = Left$(Result, InStr(Result, vbNullChar) - 1)

End If
End Function