[Resolvido]converter bytes em mega vba

Olá sou novo no access
preciso de ajuda, usei o seguinte código no meu formulário para ver o tamanho do meu banco de dados, mas acontece que retorna tudo em bytes e gostaria que retornasse em mega que é mais fácil de entender...
alguém pode me dar uma ajuda

Obrigado

Código:



Private Sub Form_Load()
Me.textbox_tamanho.Value = FileLen(CurrentDb.Name)
End Sub



veja se este link ajuda

http://www.matisse.net/bitcalc/

Ola Leonardo seja bem vindo ao forum;

Teste;

Private Sub Form_Load()
Me.textbox_tamanho.Value = Format(FileLen(CurrentDb.Name) / 1000000, "#,##0.00") & " " & "Megas"
End Sub

É só dividir e formatar para duas casas decimais;

1024 bytes = 1 Kilobyte
1024 Kilobytes = 1 Megabyte
1024 Megabytes = 1 Gigabyte
1024 Gigabytes = 1 Terabyte

MegaByte= 1,000,000 (um millão de bytes)

Caras Obrigado resolveu o problema ficou legal, obrigado Jpaulo e vieirasoft pelas dicas

Obrigado pelo retorno o forum agradece.