Nimm einfach input alleine

dim var as string*20
input #4,var