18F4550 and keypad

[mpardinho]

i send 'B" from pc, print "BOTAO" and start keypad
KEYPAD IN 16f628 IS OK...but in 18F4550 portb and portd not work

Inicio:
USBService

contador = 1 'working
USBIn 3, Dados, contador, Inicio 'working
Toggle LED

iF Dados[0]="B" tHEN 'working
Contador = 5
Dados[0] = "B"
Dados[1] = "O"
Dados[2] = "T"
Dados[3] = "Ã"
Dados[4] = "O"
goSUB Usb_Saida

GOTO Ler_Teclado
endif
GOTO Inicio

'-------------------------------------------------------------------------------
Usb_Saida: 'working
USBService
USBOut 3, Dados, contador, Usb_Saida
rETURN

'-------------------------------------------------------------------------------
Ler_Teclado:
Contador = 5 'working
Dados[0] = "B"
Dados[1] = "O"
Dados[2] = "T"
Dados[3] = "Ã"
Dados[4] = "O"
goSUB Usb_Saida

@ READKEYPAD _Botao ' not working

Contador = 3
Dados[0] = 96+Botao
Dados[1] = 13
Dados[2] = 10
goSUB Usb_Saida

goto Ler_Teclado

END