Iterate through a list and compare with a user input value and return value in the adjacent cell [closed]

I need to compare a user input value and find the first value in a list which is larger than the user input. When that value is found, I want to provide as output the value in the same row, but adjacent column. Any help is much appreciated.

Excel Screenshot - If in this case, user inputs a value 6100, I want my vba to detect 6150, and return 28