Bin kein Bascom Spezialist, aber schaltest du so nicht nur die PullUp ein?
Musst du nicht mit Config auf Output schalten?