[VB.NET] Ciclo While e uso di Select Case

[Bighi]

Allora ho sto codice:

While pos > 0
  car = Mid(Name, pos, 1)
     Select Case car
        Case "-"
           trovato = True
        Case Is <> ".", " ", "_"
           Exit While
        End Select
   pos -= 1
End While

...
operazioni sulla stringa neme nel caso trovato = true
cambia il valore di pos e trovato.
...

While pos < len(Name)
  car = Mid(Name, pos, 1)
     Select Case car
        Case "-"
           trovato = True
        Case Is <> ".", " ", "_"
           Exit While
        End Select
   pos += 1
End While

Allora: nel primo while funziona nel secondo mi esce dal while subito appena fa il case. C'e' qualche bug? o non posso uscire dal select con end while perche' poi dopo si incasina?