Perguntas Função Soma1()

Boa tarde, tenho o seguinte gatilho:
#include 'protheus.ch'

User Function GetB1Cod()

Local _aArea := GetArea()
Local _cCodB1 := ""
Local cCodB11 := ""


dbSelectArea("SB1")

SB1->(dbSetOrder(1)) //B1_FILIAL+B1_COD
SB1->(dbGoTop())

If(!SB1->(dbSeek(xFilial("SB1") + "PA"))) //Seek em produtos 'PA'

RestArea(_aArea)

Return("PA000038") //VAI USAR APENAS NA 1o VEZ DO CODIGO

EndIf

While !SB1->(EOF()) .AND. SUBSTR(SB1->B1_COD,1,2) == "PA"

_cCodB1 := SB1->B1_COD

SB1->(dbSkip())

End

cCodB11 := Soma1(cValToChar(_cCodB1))


RestArea(_aArea)

Return(_cCodB1)
Porém ao executar a função soma1, ele deveria me retornar PA000038, só que ele me retorna PA00003800001.
O que poderia ser?
Grato

Opa, fiz como me passou cCodB11 := Soma1(_cCodB1,, porém o resultado ainda está vindo errado
Valor inicial(PA000038)
Deveria vir(PA000039)
Está vindo(PA0000380000001)
O estranho é que se passo o valor direto(Soma1("PA000038") ele retorna certo...

Acertei aqui agora, vlw

Tava concatenando com espaço vazio, um alltrim na função resolveu.