VB.NET (VB6) Pegar 2 ultimos digitos do ano

[GuiGarnize]

Olá Tenho que fazer uma numeração automática de OS só que ele deve ser formulada assim
"OSxxx/17"

Onde o "/17" é o ano atual

O código por enquanto está assim:

Global cnn As New ADODB.Connection
Global Tabela As New ADODB.Recordset
Global vConexao As Boolean
Global sql As String
--------------------------------------------------------------------------------------------------------------------------------------
Public Sub conectar()
	If vConexao = False Then
		cnn.CursorLocation = adUseClient
		cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "\ControleOS.mdb;"
		vConexao = True
	End If
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Public Function desconectar()
	If vConexao = True Then
		cnn.Close
		vConexao = False
	End If
End Function
--------------------------------------------------------------------------------------------------------------------------------------
Public Function novocodigo_OS()
    Dim lastnumber As Long, newnumber As Long
    Dim Ano As Integer
    Ano = Year(Now)
    If Ano = "2017" Then
        Ano = "17"
    End If
    conectar
    Tabela.Open "select * from OS", cnn
    With Tabela
    	If .BOF = True And .EOF = True Then
	        lastnumber = 0
    	Else
        	.MoveLast
        	lastnumber = !Cod_OS
    	End If
    	newnumber = lastnumber + 1
    	frmAbreOS.txtCodOS.Text = "OS" & newnumber & "/" & Ano
    	frmAbreOS.txtCodOS.Enabled = False
    End With
    desconectar
End Function

Queria saber se tem como melhorar pra não ter que criar varias condições pra cada ano.