Visual Basic - como puedo convertir la fecha actual a fecha agraria ej: 06-01-2016 fecha agraria 0306

Dim FechaActual As Date

Dim MesAgro As Integer

Dim FechaAgro as String

FechaActual = Date

If Month(FechaActual) = 1 Then  MesAgro =3

If Month(FechaActual) = 2 Then  MesAgro =4

If Month(FechaActual) = 3 Then  MesAgro =5

If Month(FechaActual) = 4 Then  MesAgro =6

'...asi hasta diciembre

FechaAgro = Format(MesAgro,"00") & Format(Day(FechaActual,"00")

Mes =  Mes + 2

IF MES > 12 then

     Mes =  Mes - 12

End If

FechaAgro = Format(MES,"00") & Format(Day(Date,"00")