>The equivalent of VFP's DO CASE...ENDCASE in VB is Select Case:
>
>

Select Case Number   ' Evaluate Number.
>Case 1 To 5   ' Number between 1 and 5, inclusive.
>   Debug.Print "Between 1 and 5"
>Case 6, 7, 8   ' Number between 6 and 8.
>   Debug.Print "Between 6 and 8"
>Case 9 To 10   ' Number is 9 or 10.
>   Debug.Print "Greater than 8"
>Case Else   ' Other values.
>   Debug.Print "Not between 1 and 10"
>End Select

HTH

---

>Any better alternative in VB? In VFP, it's Do Case..Endcase.

Just one HUGE difference; Salect Case tests the value of exactly one item specified as an arguemnt in the Select Case line; unlike VFP, where each CASE can have it's own distinct evaluation expression.