Estou criando um txt e os meus campos textos estão ficando alinhados a Direta!!! O que tenho que fazer. Estou utilizando esta função

 

MountBodyServico = MountBodyServico & LeftInsert(IIf(IsNull(!RazSoc), "", !RazSoc), 50, " ") 

 

Private Function LeftInsert(sString As String, iTam As Integer, sChar As String) As String
Dim iCont As Integer
    LeftInsert = Mid(Trim(sString), 1, iTam)
    For iCont = Len(Mid(Trim(sString), 1, iTam)) To iTam - 1
        LeftInsert = sChar & LeftInsert
    Next
End Function

 

Grato,

A todos.

o erro está na função leftinsert, que monta o texto a partir da direita ou seja do fim pro começo, com 50 caracteres, se voce deseja que seu texto tenha sempre 50 caracteres basta:

meutexto=left(IIf(IsNull(!RazSoc), "", !RazSoc) & String(50, " "), 50)