# vb number format

I have a number that looks like this

00001230

what I need is a code that will format it like this

12.30

now sometimes the number will be

00231232

should be
2312.32

meaning always two on the right and 4 on the left

any ideas
###### Who is Participating?

Commented:
try this

Val(MID("00001230",1,6))  & "." & Val(MID("00001230",7,2))
0

Commented:
You could use the FormatNumber() function.  I think maybe:

FormatNumber(TheNumber, 2, 0, 0, 0)
0

Author Commented:
also if it is like this

00000012

should be 0.12
0

Commented:
In that case, FormatNumber(TheNumber, 2, -1, 0, 0) should do it
0

Author Commented:
it is putting the the numbers 1st and leaving the .0000

not

00000120

0.120

doing

120.00
0

RetiredCommented:
Why not simply divide by 100?
0

Author Commented:
because it would make it 1.2
divide by 1000 would still make it

120,000
0

RetiredCommented:
Private Sub Command1_Click()
Dim Samples As Variant
Dim i As Integer

Samples = Array("00001230", "00231232", "00000012")
For i = 0 To UBound(Samples)
Debug.Print Format\$(Samples(i) / 100, "0.00")
Next i
End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.