How can add some values from one String to another

[Henry196]

Hy guys,

I need some help with strings. The two strings show like this.

1. -Value1;-Value2;-Value3
2. -Value1;-Value2;-Value3;Value4

I would like to add all values with "-" in one string.

Thanks for help!

[HeSaidJoe]

what is your code and where are you loading the strings
is the string an array with ; as a delimiter
or do you have a file with a bunch of numbers

[Henry196]

Sorry

Both strings are arrays an the ; is the delimiter
the second string is comeing from a file
the first from the registry

[kedaman]

For Each Item in arrayname
 singlestring=singlestring & "-" & Item
next Item

[HeSaidJoe]

Option Explicit

Private Sub Form_Load()

Dim Sfile As String, var1 As String
Dim sResult As Variant

'Sfile = "yourpath/yourfile/ext"
var1 = "-4;-4;-4;6;6"
'Open Sfile For Input As intNum
    'read the complete file into a string variable
    'var1 = StrConv(InputB(LOF(intNum), intNum), vbUnicode)
   ' Close intNum
    Dim i As Integer
    'use the split function to split the string
    'into sections using the ; as the split pos
    sResult = Split(var1, ";")
    'read the split into the public array
    
    Dim myArr() As Integer
    
    For i = 0 To UBound(sResult)
    ReDim Preserve myArr(i)
       myArr(i) = Trim(sResult(i))
      Next i
      For i = 1 To UBound(myArr)
      If Left(myArr(i), 1) = "-" Then
         myArr(i) = myArr(i) + myArr(i - 1)
      End If
    
    Next i
    
    'display
    For i = 1 To UBound(myArr)
      MsgBox myArr(i)
        Next i
        
    
  ' then rejoin the array...and put it back or whatever you
   'plan on doing
    
End Sub