[أبو خالد الشكري]

أضف في النافذة Button1 وكذلك TextBox1
ثم جرب الكود التالي

كود :

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 = $"{leftPart}-{rightPart}"
               TextBox1.Text = newText
           End If
       End If
   End Sub