[Resolvido]Somar Textbox

Boas, eu tenho um textbox que eu digito o dia do vencimento da fatura até ai tudo bem só que eu quero copiar está fatura para outros meses com o mesmo dia.
exemplo: dia 20/08/2012 eu queria que ele copia-se para 20/09/2012, 20/10/2012, 20/11/2012, 20/12/2012, 20/01/2013, 20/02/2013, 20/03/2013.
alguem tem como me ajudar nessa.
desde já obrigado

Boa noite,
Uma cópia é igual ao original senão deixa de ser cópia. Pretende copiar ou criar novas datas? Copiar ou criar para onde?

Caro Alexandre
De uma olhada neste código que eu fiz.
Private Sub CommandButton1_Click()
'Cadastro
'***************************
'Inserir os Dados no banco
'de dados Access
'***************************
Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sql As String
cont = 1
Z = CDbl(TextBox31)

If Z > 1 Then
For x = 1 To Z '< Z Then
sql = "INSERT INTO movimento(nome, data, valor, conta, cheque, tipo, pago, copia, semana)"
sql = sql & " VALUES ("
sql = sql & " '" & Me.TextBox1.Text & "'"
sql = sql & ", '" & Me.TextBox2.Text & "'"
sql = sql & ", '" & Me.TextBox3.Text & "'"
sql = sql & ", '" & Me.ComboBox1.Text & "'"
sql = sql & ", '" & Me.TextBox4.Text & "'"
sql = sql & ", '" & Me.ComboBox2.Text & "'"
sql = sql & ", '" & Me.TextBox5.Text & "'"
sql = sql & ", '" & Me.TextBox12.Text & "'"
sql = sql & ", '" & Me.TextBox2.Text & "'"
sql = sql & " )"

Set banco = New ADODB.Recordset
'***********************************************
'Verificar se algum campo esta sem preenchimento
'***********************************************
If Me.TextBox1 = Empty Or Me.TextBox2 = Empty Or Me.TextBox3 = Empty Then
MsgBox "Todos os dados devem ser preenchidos"
Else
cx.Conectar
On Error Resume Next
banco.Open sql, cx.Conn
'aqui ele soma 30 dias ao textbox
Me.TextBox2.Text = CDate(TextBox2.Text) + 30
cont = cont + 1
End If
Next x
If Me.TextBox1 = Empty Or Me.TextBox2 = Empty Or Me.TextBox3 = Empty Then
MsgBox "Todos os dados devem ser preenchidos"
Else
Me.TextBox1 = Empty
Me.TextBox2 = Empty
Me.TextBox3 = Empty
Me.TextBox4 = Empty
Me.TextBox5 = Empty
Me.TextBox12 = Empty
Me.ComboBox1 = ""
Me.ComboBox2 = ""
Me.TextBox1.SetFocus
MsgBox "Movimento Cadastrado com Êxito"
Set banco = Nothing
cx.Desconectar
End If
Else
sql = "INSERT INTO movimento(nome, data, valor, conta, cheque, tipo, pago, copia, semana)"
sql = sql & " VALUES ("
sql = sql & " '" & Me.TextBox1.Text & "'"
sql = sql & ", '" & Me.TextBox2.Text & "'"
sql = sql & ", '" & Me.TextBox3.Text & "'"
sql = sql & ", '" & Me.ComboBox1.Text & "'"
sql = sql & ", '" & Me.TextBox4.Text & "'"
sql = sql & ", '" & Me.ComboBox2.Text & "'"
sql = sql & ", '" & Me.TextBox5.Text & "'"
sql = sql & ", '" & Me.TextBox12.Text & "'"
sql = sql & ", '" & Me.TextBox2.Text & "'"
sql = sql & " )"

Set banco = New ADODB.Recordset
'***********************************************
'Verificar se algum campo esta sem preenchimento
'***********************************************
If Me.TextBox1 = Empty Or Me.TextBox2 = Empty Or Me.TextBox3 = Empty Then
MsgBox "Todos os dados devem ser preenchidos"
Else
cx.Conectar
On Error Resume Next
banco.Open sql, cx.Conn
Me.TextBox1 = Empty
Me.TextBox2 = Empty
Me.TextBox3 = Empty
Me.TextBox4 = Empty
Me.TextBox5 = Empty
Me.TextBox12 = Empty
Me.ComboBox1 = ""
Me.ComboBox2 = ""
Me.TextBox1.SetFocus
MsgBox "Movimento Cadastrado com Êxito"
Set banco = Nothing
cx.Desconectar
End If
End If
End Sub

Nomeie os controlos de formas normalizada, facilita-lhe o trabalho e a todos que peça ajuda
Onde pretende que as datas interfiram?

Caro Alexandre
Não entendi o que você quer dizer


Me.TextBox2.Text = CDate(TextBox2.Text) + 30

Se tiver acompanhado o fórum, mesmo que seja de quando em vez, já se deparou com alertas para a nomeação intuitiva dos controlos. TextBox1, textbox2, textbox3 diz alguma coisa? e TxtDataInicial, TxtDataFinal, TxtDiasAAcrescentar consegue dizer-me o que significa?
Para o que pretende, coloque
Me.TextBox2 = dateadd("d",CDate(TextBox2),30)

não resolve pois o dia muda e quero que dia fique fixo como no exemplo que eu coloquei 20/09/2012, 20/10/2012, 20/11/2012, 20/12/2012, 20/01/2013 o dia fica fixo o mês e o ano que muda

para acrescentar 1 mês
Me.TextBox2 = dateadd("m",CDate(TextBox1),1)

Muito obrigado pela a sua ajuda no meu caso a formula ficou assim:

Me.TextBox2 = DateAdd("m", 1, CDate(TextBox2))