[Resolvido]Simplificar Procedimento

Gostaria de criar uma função que faça uma soma contínua, para simplificar o procedimento abaixo.
Então, para cada ano adicional, deve-se acrescentar 3 até o máximo de 90.
Imagino que possa fazer com um For...To...Next, mas não sei bem como.

OBS:Competência e Admissão são campos data (dd/mm/yyyy).

    If Me.Competencia >= #11/10/2011# Then
        If DateDiff("y", Me.Admissao, Me.Competencia) <= 1 Then
            Me.DtRescisao = Me.DtAvPrevio + 30
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 2 Then
            Me.DtRescisao = Me.DtAvPrevio + 33
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 3 Then
            Me.DtRescisao = Me.DtAvPrevio + 36
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 4 Then
            Me.DtRescisao = Me.DtAvPrevio + 39
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 5 Then
            Me.DtRescisao = Me.DtAvPrevio + 42
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 6 Then
            Me.DtRescisao = Me.DtAvPrevio + 45
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 7 Then
            Me.DtRescisao = Me.DtAvPrevio + 48
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 8 Then
            Me.DtRescisao = Me.DtAvPrevio + 51
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 9 Then
            Me.DtRescisao = Me.DtAvPrevio + 54
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 10 Then
            Me.DtRescisao = Me.DtAvPrevio + 57
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 11 Then
            Me.DtRescisao = Me.DtAvPrevio + 60
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 12 Then
            Me.DtRescisao = Me.DtAvPrevio + 63
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 13 Then
            Me.DtRescisao = Me.DtAvPrevio + 66
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 14 Then
            Me.DtRescisao = Me.DtAvPrevio + 69
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 15 Then
            Me.DtRescisao = Me.DtAvPrevio + 72
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 16 Then
            Me.DtRescisao = Me.DtAvPrevio + 75
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 17 Then
            Me.DtRescisao = Me.DtAvPrevio + 78
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 18 Then
            Me.DtRescisao = Me.DtAvPrevio + 81
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 19 Then
            Me.DtRescisao = Me.DtAvPrevio + 84
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 20 Then
            Me.DtRescisao = Me.DtAvPrevio + 87
        ElseIf DateDiff("y", Me.Admissao, Me.Competencia) = 21 Then
            Me.DtRescisao = Me.DtAvPrevio + 90
        End If
    End If

Tente algo assim:

Código:

Dim C As Integer

C = 30 + ((DateDiff("y", Me.Admissao, Me.Competencia) - 1) * 3)

Me.DtRescisao = Me.DtAvPrevio + C

Ou, se quiser colocar tudo em uma única linha sem a necessidade de declarar variável, pode fazer assim:

Código:

Me.DtRescisao = Me.DtAvPrevio + (30 + ((DateDiff("y", Me.Admissao, Me.Competencia) - 1) * 3))

Resolvido. Obrigado.