[Zuhare]

فين كود الاخ أبو خالد الشكري لماذا لم تستخدمه فالحل كان فيه واذا كنت بتقصد ان الناتج يظهر في TextBox2 فهذا نفس الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim originalText As String = TextBox1.Text
       Dim parts() As String = originalText.Split("-"c)

       If parts.Length = 2 Then
           Dim leftPart As String = parts(0)
           Dim rightPart As Integer

           If Integer.TryParse(parts(1), rightPart) Then
               rightPart += 1
               Dim newText As String = String.Format("{0}-{1}",leftPart,rightPart)
               'Dim newText As String = $"{leftPart}-{rightPart}"
               TextBox2.Text = newText
           End If
       End If
   End Sub