have a look at this one

http://melabs.com/resources/samples/pbp/7segment.pbp

and change Display sub.
For i = 0 To 3 ' Loop through 4 digits

to

For i = 0 To 1 ' Loop through 2 digits

If you're using PBP, this will work, if you're using PBC... it might cause some headaches