Das sieht auf den ersten Blick ganz gut aus.
Wenn du unter dem letzten Case aber vor End Select noch ein Case Else einfügst kannst Du dort alles abfangen und verarbeiten was die case oben nicht interessiert hat. Da kannst du den Inhalt von InString z.B. noch mal ausgeben oder eine Fehlermeldung.

Insgesamt würde ich mal im Debug mode am Anfang der sub einen Breackpoint setzen und das Ding mit F8 im Einzellschritt durchgehen.
Dabei kannst du wenn du mit der Maus die Variable InString anklickst sehen was sie enthält.
Dort achte mal bei der Darstellung bitte darauf ob der angezeigte String vorne Und!! Hinten seine Gänsefüsschen hat „
Es gibt manchmal den Fall das ein unsichtbares Zeichen am Ende versteckt ist was du erst löschen musst.
Diesen Fall stöberst du auf in dem du auf die Gänsefüsschen achtest. Das ist nämlich dann verschwunden.
Der Messagebox ist das ega die zeigt alles brav an ohne murren und knurren.

Das wäre so eine Zeile mit der du das letzte Zeichen löschst.
Wobei ich InString mal als String annehme, wie du ihn ja auch oben global deklariert hast.

InString = InString.Trim.Remove(Instring.Trim.Length - 1, 1) 'Am Ende ein unsichtbares Zeichen killen

Vielleicht hilft dir das weiter.

Netter Gruss