tente

 

' Fixa uma string com um tamanho
' c_alinhamento = 1 Direira
'                 0 Esquerda
Function STR_FIXO(str_aux As String, tamanho As Integer) As String
    On Error Resume Next
    If tamanho > Len(str_aux) Then
        If c_alinhamento = 1 Then
            str_aux = String(tamanho - Len(str_aux), " ") + str_aux
        Else
            str_aux = str_aux + String(tamanho - Len(str_aux), " ")
        End If
    End If
   
    STR_FIXO = Mid(str_aux, 1, tamanho)
End Function

 

Melhor colocar o c_ali... como parametro