AUTO COMPLETAR COM SETAS

Public Function Completa(TXT As TextBox) As String
Dim Tamanho As Integer, Sobra As Integer, Meio As Integer
Dim SetaL As String, SetaR As String, Final As String

Tamanho = Len(Trim(TXT.Text))
If Tamanho <> 28 Then 'Olha se é diferente
    If Tamanho Mod 2 = 0 Then 'Olha se é par
        Sobra = Abs(Tamanho - 28) 'Olha quantos faltam
        Meio = (Sobra / 2) - 2 'metade da sobra menos os espaços
        For i = 0 To Meio 'Preenche duas Vars com setas
            SetaL = SetaL & "<"
            SetaR = SetaR & ">"
        Next i
    Else ' se não for par
        Sobra = Abs(Tamanho - 28)
        Meio = ((Sobra + 1) / 2) - 3
        For i = 0 To Meio 'Preenche duas Vars com setas
            SetaL = SetaL & "<"
            SetaR = SetaR & ">"
        Next i
    End If
    Final = SetaL & " " & Trim(TXT.Text) & " " & SetaR
    Completa = Final
End If
End Function

'para usar a função:
'Var = Completa(text1)

[c]Private Sub Command1_Click()
Label1.Caption = Completa(Text1)
End Sub

Public Function Completa(TXT As TextBox) As String
On Error GoTo Error_Hdl
Dim Tamanho As Integer, Sobra As Integer, Meio As Integer
Dim SetaL As String, SetaR As String, Final As String
121: SetaL = ""
122: SetaR = ""
123: Tamanho = 0
124: Sobra = 0
125: Meio = 0
'len - Conta a qtdade de caracteres
'trim - remove os espaços da esquerda e da direita
'mod - Verifica se há resto numa divisão
'abs - Traz o número absoluto, sempre positivo, nunca negativo

131: Tamanho = Len(Trim(TXT.Text))
132: If Tamanho <> 28 Then 'Olha se é diferente
133:    If Tamanho Mod 2 = 0 Then 'Olha se é par
134:        Sobra = Abs(Tamanho - 28) 'Olha quantos faltam
135:        Meio = (Sobra / 2) - 2 'metade da sobra menos os espaços
136:        For i = 0 To Meio 'Preenche duas Vars com setas
137:            SetaL = SetaL & "<"
138:            SetaR = SetaR & ">"
139:        Next i
140:    Else ' se não for par
141:        Sobra = Abs(Tamanho - 28)
142:        Meio = ((Sobra + 1) / 2) - 3
143:        For i = 0 To Meio 'Preenche duas Vars com setas
144:            SetaL = SetaL & "<"
145:            SetaR = SetaR & ">"
146:        Next i
        'SetaL = SetaL & "<" 'acrescenta a sobra
148:    End If
149:    Final = SetaL & " " & Trim(TXT.Text) & " " & SetaR
150:    Completa = Final
151: End If
152: Exit Function
Error_Hdl:
154: MsgBox Err.Number & " - " & Err.Description & " na linha: " & Erl & " - frm_configuração"
155: Exit Function
End Function

Private Sub Command7_Click()
On Error GoTo Error_Hdl
'Label1.Caption = Completa(TExt1)
109: FRM_MENU.SkinLabel1.Caption = Completa(TExt1)
110: FRM_MENU.SkinLabel2.Caption = Completa(TExt1)
111: Exit Sub
Error_Hdl:
113: MsgBox Err.Number & " - " & Err.Description & " na linha: " & Erl & " - frm_configuração"
114: Exit Sub
End Sub

Private Sub Command4_Click()
On Error GoTo Error_Hdl
62: Data1.Recordset.Fields("LEMBRETE") = Completa(TExt1)
63: FRM_MENU.SkinLabel1.Caption = Completa(TExt1)
64: FRM_MENU.SkinLabel2.Caption = Completa(TExt1)
65: Frame1.Enabled = False
66: Frame2.Enabled = False
67: Frame4.Enabled = False
68: Frame5.Enabled = False
69: Command3.Enabled = True
70: Command4.Enabled = False
71: Command5.Enabled = False
72: Command6.Enabled = True
73: Data1.Recordset.Update
74: Exit Sub
Error_Hdl:
76: MsgBox Err.Number & " - " & Err.Description & " na linha: " & Erl & " - frm_configuração"
77: Exit Sub
End Sub