serialport = Val(InputBox("Select ComPort 1 or 2?", "ComPort selection", 1)) 
Loop Until serialport = 1 Or serialport = 2