Macro to select next value in Listbox

[#1]

I have a listbox that can only have 1 selected value and want to create buttons that select the next (or previous) value in the listbox. In pseudo code, it should do the following:

Sub SelectNext
 get [index of currently selected value]
 if index < [number of rows in listbox] then
 listbox.select [index + 1]
 end if
End Sub

Can anyone share a macro that would accomplish this?

[Anonymous]

Thank you soo much!!!

Both of answers worked to me, but yours keep the right order of my clients field.