B4J Question regex for split this string:10.8+5-3

Sub AppStart (Args() As String)
    Dim s As String = $"10.8+
3+
5"$
    Dim m As Matcher = Regex.Matcher2("^([\d\.]+)", Regex.MULTILINE, s)
    Do While m.Find
        Log(m.Match)
    Loop
End Sub

Dim m As Matcher = Regex.Matcher2("([\d\.]+)",Regex.MULTILINE, s)

Dim m As Matcher = Regex.Matcher2("[\d\.]+", Regex.MULTILINE, strFormula)
    
     
    Dim aSegno As String
    
    Do While m.Find
        Dim aPos As Int    = strFormula.IndexOf(m.Match)
 
 
        
        If aPos = 1 Then
            aSegno = strFormula.CharAt(0)
        Else
            Dim aStart As Int     = aPos -1
            Dim aLun As Int     = m.Match.Length
            aSegno                 = strFormula.SubString2(aStart, aLun+aStart)
        End If
        
        If aSegno = T_PLUS Then
            dDebitCreditSign = 1.0
        else if  aSegno = T_MINUS Then
            dDebitCreditSign = -1.0
        End If
        
        If Not(bIsFirstDiscount) And dFromToDiscount = 100.00 Then
            dFromToDiscount = dFromToDiscount - aData.mPerc1
        End If
        
        ...
        loop

Dim Sconti As String ="10+3+7+11.5+26"
    
    Dim Lines() As String = Regex.Split("\+", Sconti)
    
    For Each Line As String In Lines
        Log(Line)
    Next

Dim S As String ="10+3+7-11.5+26"
    
    Dim Lines() As String = Regex.Split("\+|\-", S)
    
    Dim values(6) As String
    Dim t As Int
    Dim i As Int
    
    Log(S)
    Log("")
    For Each Line As String In Lines
        t=S.IndexOf(Line)
        If t>0 Then
            If S.CharAt(t-1)="-" Then
                values(i)="-" & Line
            Else
                values(i)=Line
            End If
        Else
            values(i)=Line
        End If   
        Log(values(i))
        i=i+1
    Next