VB6 Equivalent of Right Shift operator ( >> )

What is an equivalent of a Right Shift operator (>> ) in
visual basic 6.0? I am trying to convert a C++ code into
visual basic that looks like the following:

While (m < n)
{
k = (m+n) >> 1
}

Thanks,
Bob