[Ask] Penomoran otomatis

Assalamualaikum,
Untuk sekalian kalinya saya meminta pencerahan dari agan-agan kembali.
berikut adalah kasus yang saya ingin tanyakan, saya sedang membuat kode otomatis atau penomeran otomatis berikut adalah koding yang saya sudah buat dan sudah berjalan dengan baik di form yang saya buat,

Sub NoFakturOtomatis()
        tbinputfakturkeluar = Proses.ExecuteQuery("Select * From tb_inputfakturkeluar order by No_faktur desc")
        If tbinputfakturkeluar.Rows.Count = 0 Then
            txtFaktur.Text = "010.000.13.00000001"
        Else
            With tbinputfakturkeluar.Rows(0)
                txtFaktur.Text = .Item("No_Faktur")
            End With

            txtFaktur.Text = Val(Microsoft.VisualBasic.Right(txtFaktur.Text, 8)) + 1
            If Len(txtFaktur.Text) = 1 Then
                txtFaktur.Text = "010.000.13.0000000" & txtFaktur.Text & ""
            ElseIf Len(txtFaktur.Text) = 2 Then
                txtFaktur.Text = "010.000.13.000000" & txtFaktur.Text & ""
            ElseIf Len(txtFaktur.Text) = 3 Then
                txtFaktur.Text = "010.000.13.00000" & txtFaktur.Text & ""
            ElseIf Len(txtFaktur.Text) = 4 Then
                txtFaktur.Text = "010.000.13.0000" & txtFaktur.Text & ""
            ElseIf Len(txtFaktur.Text) = 5 Then
                txtFaktur.Text = "010.000.13.000" & txtFaktur.Text & ""
            ElseIf Len(txtFaktur.Text) = 6 Then
                txtFaktur.Text = "010.000.13.00" & txtFaktur.Text & ""
            ElseIf Len(txtFaktur.Text) = 7 Then
                txtFaktur.Text = "010.000.13.0" & txtFaktur.Text & ""
            ElseIf Len(txtFaktur.Text) = 8 Then
                txtFaktur.Text = "010.000.13." & txtFaktur.Text & ""
            End If
        End If
    End Sub.

seperti yang sudah saya tuliskan sebelumnya bahwa coding ini sudah berjalan dengan semestinya. Dimana setiap terjadi penyimpanan data baru maka secara otomatis coding dari nomor tersebut akan berubah atau bertambah, saya kira agan-agan paham apa yang saya maksudkan disini. Ok sekarang kita ke inti permasalahannya penomoran ini saya tulis dengan mencontoh penomoran faktur pajak dimana penulisan nomor faktur pajak tersebut, Contoh :

"010.000.13.00000001"

sebaiknya saya focuskan langsung kepertanyaan angka "13" itu menunjukan tahun pembuatan sedangkan angka "00000001" adalah angaka transaksi faktur nah...yang saya tanyakan disini bagai mana caranya berubah pada saat tahun sudah berganti mejadi angka "14" secara otomatis mengikuti tahun yang berjalan. adakah yang mempunyai solusi pemecahannya saya dah googling susah ngak dapet-dapet, jadi di forum ini mungkin ada yang bisa membantu saya

saya menggunakan Vb.net 2008