Visual Basic - FUNCION FECHA

Hola a todos y gracias por adelantado.
Quisiese saber si hay alguna funcion que teniendo un formato de fecha "mmyy" (mes_año) pudiese restar un mes a la fecha.
Por ejemplo teniendo la fecha "0904" (Septiembre del 2004), restandole 1 me diese "0804"(Agosto del 2004).
Como yo no sabía ninguna funcion usaba este código pero es un lio porque tienes que controlar cuando cambias de año y añadir un cero delante de los meses menores de 10:

strBase = Month(Date)
If Len(strBase) < 2 Then
If strBase = 0 Then
strBase = "12"
strBase = strBase & "" & Format((Year(Date) - 1), "yy")
Else
strBase = 0 & strBase
strBase = strBase & "" & Format(Year(Date), "yy")
End If
Else
strBase = strBase & "" & Format(Year(Date), "yy")
End If

Puede ayudarme alguien?

Dim a As Date
Dim dia As String

dia = "0804"

dia = "01/" & Left(dia, 2) & "/" & Right(dia, 2)

a = CDate(Format(dia, "dd/mm/yy"))
a = DateAdd("m", 1, a)
MsgBox Format(a, "mmyy")