Limite caracteres por linhas

Pessoal, preciso de uma ajudar sobre como fazer o um codigo em VBA para qndo ele pegar um texto com 120 caracteres ele fazer a quebra por uma quantidade que eu limitar( seria em torno de 50 por linha, ai ele adicionaria mais 50 na linha abaixo e 20 na terceira linha, lembrando que ja tenho um codigo VBA que carrega data, numero e o texto, então qndo pular para a linha abaixo ele nao repete a data e nem o numero ja lança o restante do texto onde eu definir.

Exemplo do que eu tenho em tabela

01/01 95 teste de campo para geração de codigo em VBA direto para txt(esse seria um texto com 120 caracteres)

Exemplo como teria que ficar assim que eu rodar o codigo para gerar em txt.

0/0195teste de campo para
......geração de codigo em
......Vba direto para txt

Lembrando que os pontos neste exemplo são os espaços.

Uitlize ciclo For Next e função Mid

Nao entedi o que posso fazer. Segue o codigo que é usado para gerar o campo,mais nao sei como modificar qndo ultrapassar 50 caracteres e adicionar na linha abaixo.

Código:

S = Tbl!concatenado
S = S & Space(50 - Len(S))

Boa tarde,
Para obter texto de 50 em 50 caracteres
Dim I As Integer
For I = 1 To Len(Tbl!concatenado)
S= Mid(Tbl!concatenado, I)
I = I + 49
Next