Como determinar la fecha de vencmiento

Por aquí nuevamente solicitando su amable ayuda, tengo un formulario que me encuentra la fecha de vencimiento si una afiliación de socios es mensual o semanal, funciona muy bien

Resultado = DateAdd("m", 1, Fecha)
(Fecha es el textbox donde ira la fecha inicial)

(Me. Tipo_pago es un combobox)

If Me.Tipo_pago = "MENSUAL" Then
Me.Fecha_venc = Resultado
ElseIf Me.Tipo_pago = "SEMANAL" Then
Me.Fecha_venc = CDate(Me.Fecha) + 6
Else
Exit Sub
End If

Pero ahora se me presenta este inconveniente debajo del combo hay un textbox llamado cantidad, el cual me indica cuantos meses o semanas durara la afiliación(1,2,3 semanas o meses), y debajo hay otro textbox que me arroja la fecha final, entonces si un cliente hace una afiliación de 2 meses como puedo calcular la fecha final, o en su defecto cancela 2 semanas como se calcula la fecha final, espero me haya hecho entender un saludo a todos y