[حافظ حافظ]

السلام عليكم.اخواني شكرا مسبقا لو سمحتو هذا الكود وجدته بالمنتدى للاستاذ حريف برمجة ربنا يبارك فيه
مشكلة صغيرة بس
الكود يعمل الترقيم هكذا 0001-2018
كيف أبدلو ليصبح يعمل هكذا 2018-0001
حاولت استبدالو لكن ما ضبطت و الله

كود :

   Sub shownewid()
       If Date.Now.Month = 1 And Date.Now.Day = 1 Then
           TextBox1.Text = Date.Now.Year & " - " & "0001"
           'TextBox1.Text = "0001" & " - " & Date.Now.Year
           Exit Sub
       End If
       Dim dp As New OleDbDataAdapter("select Top 1 ID from Table1 order by ID desc", conn)
       Dim dt As New DataTable
       dp.Fill(dt)
       If dt.Rows.Count = 0 Then
           'هنا لا يوجد سجلات نعمل التسلسل 0001
           TextBox1.Text = Date.Now.Year & " - " & "0001"
           'TextBox1.Text = "0001" & " - " & Date.Now.Year
       Else
           Dim idall As String = dt.Rows(0)(0).ToString
           idall = Replace(idall, " - ", "-")
           Dim strArr() As String = idall.Split("-")
           TextBox1.Text = Date.Now.Year & " - " & Val(strArr(1) + 1).ToString("0000")
           'TextBox1.Text = Val(strArr(1) + 1).ToString("0000") & " - " & Date.Now.Year
       End If
   End Sub