how can i do this i want to do...............

[XxEvilxX]

ok i want to put a . after ever 3 numbers

[jritchie]

How about something like

lNumber = 999999
lNumber = Format(lNumber,"##0.000")

Hope it helps

[SteveS]

For Example,

MyNumber = 234634845345

Private Function MyFormat(MyNumber as Long) as String
Dim strMyNumber as String
Dim n as Long
Dim tmpMyNumber as String
strMyNumber = CStr(MyNumber)

For n = Len(strMyNumber) to 1 Step -3
tmpMyNumber = Mid(strMyNumber,n,3) & "." & tmpMyNumber
Next n
n = Len(strMyNumber) Mod 3
tmpMyNumber = Mid(strMyNumber,1,n) & "." & tmpMyNumber
MyFormat = tmpMyNumber

Usage: MyFormattedNumber = MyFormat(MyNumber)

Hope this helps,

Steve.

[sultan]

here is how u do that..
its tried and tested and it works fine ..


Dim strMyNumber As String
Dim n As Long
Dim myNumber As Double
Dim inArrays(10) As String, CouNts As Integer
CouNts = 0


myNumber = InputBox("Plese inter a number", "Put dot after 3 numbers")
Dim nums As String

strMyNumber = CStr(myNumber)
inArrays(CouNts) = Mid(strMyNumber, 1, 3)& "."

For n = 4 To Len(strMyNumber) Step 3
CouNts = CouNts + 1
inArrays(CouNts) = Mid(strMyNumber, n, 3) & "."
Next n

For n = 0 To CouNts
nums = nums & inArrays(n)
Next n

nums = Left(nums, (Len(nums) - 1))

MsgBox "here is your number: " & nums, , "Get numbers"