wenn das so ist, kannste einfach

Code:
Dim Var as Byte
Var = Portx
machen ^^