what is wrong with this code

[kirubagari]

Private Sub Command1_Click()

dim i as long
dim arrbyte() byte


For i = 1 To mFileSize

rich1.Text = rich1.Text & Hex$(arrByte(i)



this coding gives the error over flow.why overflow occur and what is the solution.the file that read by the progarm got 600000.What is the solution and one more thing i would like to ask.

if i make the file size i=1 to 100
the output as shown

1FF10002FFB8A103FF8D0(hexdecimal form)

i want to read it as 01 FF 01 00 00 00 02 FF 0B 8A 01 00 03 FF 8D 00

normaly in the haxadecimal we read it 2 valus.It cant raed the 0.JUST READ ONE OF THE VALUE

[hariharanmca]

if i make the file size i=1 to 100
the output as shown

1FF10002FFB8A103FF8D0(hexdecimal form)

i want to read it as 01 FF 01 00 00 00 02 FF 0B 8A 01 00 03 FF 8D 00

rich1.Text = nothing
 
For i = 1 To mFileSize
 
rich1.Text = rich1.Text & Hex$(arrByte(i) & " "    '(Space after value)
 
next

[hariharanmca]

Private Sub Command1_Click()

dim i as long
dim arrbyte() byte


For i = 1 To mFileSize

rich1.Text = rich1.Text & Hex$(arrByte(i)



this coding gives the error over flow.why overflow occur and what is the solution.the file that read by the progarm got 600000.What is the solution

usualy this over flow error will come if the value is not in the size of datatype size

[Killer42]

Perhaps there is a limit on the length of the text in a richtextbox? After all, you're trying to put anything up to about 1.2 million characters in it. As for the format, just add a space after each one, as shown by hariharanmca, and use my "fixed-length Hex$" function (posted in another of your threads today) to force two digits.

One thing you could do to try and debug the overflow is break things down into simpler steps, so you can pinpoint what is causing it. Then we can try to work out why. For instance, is the overflow occurring in:

• The Hex$() function, or
• the concatenation to Rich1.Text, or
• the indexing of the arrByte array, or
• The FOR statement, or
• something else you haven't shown us?