0

Have a look at the Len function, Left and Right functions with split. Basically you need to split the string into values before the + sign. Once you get that value, just add them together...

InStr will probably work the best...

```
If InStr(1, TheString, "+") > 0 Then
MsgBox "+ found!"
''Your code here to start adding values...
End If
```

The below code will count the amount of plusses in the string...

```
Private Function CountChars(ByVal sText As String, iCharacter As Integer) As Long
Dim TextArray() As Byte
Dim i As Long
Dim lCount As Long
TextArray() = sText
For i = 0 To UBound(TextArray) Step 2
If TextArray(i) = iCharacter Then lCount = lCount + 1
Next
CountChars = lCount
MsgBox lCount
End Function
'35 is the ascii code for the # sign
Private Sub Command1_Click()
Dim CallIt As Long
CallIt = CountChars(Text1.Text, 35)
End Sub
```

Or something similar...

```
' count +
Dim asciiToSearchFor As Integer
asciiToSearchFor = Asc("+")
For i = 1 To Len(text)
If Asc(Mid$(text, i, 1)) = asciiToSearchFor Then count = count + 1
Next
```

With the above you can now put together exactly what you need.

You

This question has already been solved: Start a new discussion instead