## Lida_pink

How can I get the sum of the numbers of only one textbox?
For example text1.text= 1367
How to get the sum of this 4 digit number?

Lida

## turseno

How can I get the sum of the numbers of only one textbox?
For example text1.text= 1367
How to get the sum of this 4 digit number?

Lida

Dear Lida,

Try this:

text1.text = 1367
text2.text = sum(text1.text)

## abu taher 4

if you want only 4 digit will type in text box then adjust the properties of text box. max length = 4

## Celt.Max 1

I'm not sure if the solution is so easy as you write... VB(at least my 6 one) does not have the sum function... its necessary to write it at first. It could looks like this:

``````Public Function SUM(sNumber as String) As Integer
dim iX as integer, iCount as integer
for iX = 1 to len(sNumber)
iCount = iCount + CInt(Mid(sNumber, iX, 1))
Next iX
SUM = iCount
End Function``````

:)

## Lida_pink

Dear Lida,

Try this:

text1.text = 1367
text2.text = sum(text1.text)

Unfortunately this also doesn't work....I've already tried it.. :(:(

## Lida_pink

I'm not sure if the solution is so easy as you write... VB(at least my 6 one) does not have the sum function... its necessary to write it at first. It could looks like this:

``````Public Function SUM(sNumber as String) As Integer
dim iX as integer, iCount as integer
for iX = 1 to len(sNumber)
iCount = iCount + CInt(Mid(sNumber, iX, 1))
Next iX
SUM = iCount
End Function``````

:)

This one doesn't work either.... :(

## vb5prgrmr 143

Lida_Pink,

Lets make sure of our definitions first... The sum of numbers is, those numbers being added together, while the product of numbers is, those numbers being multiplied together. So if you want the sum of numbers in a string then celt.max's code does work...

``````Option Explicit

Dim Result As Integer
Result = SUM("1234")
MsgBox Result
End Sub

Public Function SUM(sNumber As String) As Integer
Dim iX As Integer, iCount As Integer
For iX = 1 To Len(sNumber)
iCount = iCount + CInt(Mid(sNumber, iX, 1))
Next iX
SUM = iCount
End Function``````

However, if you are wanting the product of the numbers, then yes a different solution is needed. So, are you wanting the product of these numbers?

Good Luck

## AndreRet 362

Try the following to get the sum of an integer -

``````Private Sub Command1_Click()
On Error GoTo Errorhandler
x = InputBox("Please Enter an Integer.", , Text1.Text)
If x <> "" Then
Do While x <> 1
If x Mod 2 = 0 Then
x = x / 2
Else
x = (x * 3) + 1
End If
Loop
'Number of steps used
Label1 = List1.ListCount - 1
End If
Errorhandler:
Exit Sub
End Sub

'Even numbers are divided by 2
'Odd numbers are multiplied by 3 and are then increased by 1
'The problem ends by reaching the number 1``````

## Lida_pink

I need the sum of the numbers. And thank you very much. Your answer is correct.
Cheers,
Lids