If Input = Y Then
call X
endif

was soll "Portd Sub X" machen?