Remover "¶" do final dos textos de uma LISTBOX

Question

Bom dia pessoal estou desenvolvendo uma plicação no VBA onde se carrega o resultado de uma SELECT do SQL Server para dentro de uma listBox, porem o texto adicionado vem com o caractere "¶" no final de cada linha.

O código de inserção é algo assim:

  

For Linha = 1 To Conta
  Set rs = conn.Execute("With Nav_Linhas as (Select *,ROW_NUMBER() OVER(ORDER BY ID_Clientes) As LinhaSQL from Clientes ) Select Nome from Nav_Linhas where linhaSQL = " & Linha)
  SQL = rs.GetString
  'MsgBox SQL

  ListBox1.AddItem SQL
  ComboBox1.AddItem SQL
 Next Linha

Já não sei mais o que poderia fazer para remover o "¶", pois este caractere atrapalha a utilização da informação em outras Select futuras.

Agradeço desde já pela ajuda.

Answer 1

Option Explicit

Function RetirarUltimoCaractereDaDireita(ByVal texto As String) As String

RetirarUltimoCaractereDaDireita = Left(texto, Len(texto) - 1)


End Function


Sub teste()

MsgBox RetirarUltimoCaractereDaDireita("texto")

End Sub

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]

Answer 2

Obrigado consegui!