Dim Valor_por_Extenso As String
Dim T, Tamanho_da_linha As Integer
Tamanho_da_linha = 50 'Número de caracteres de cada linha
Valor_por_Extenso = Valor_Extenso.Text
T = Len(Valor_por_Extenso)
Linha1.Text = Mid(Valor_por_Extenso, 1, Tamanho_da_linha)
Linha2.Text = Mid(Valor_por_Extenso, Tamanho_da_linha + 1, T)
A partir daí, você faz os melhoramentos.
