Wie kann ich einen String "1-200" in ein Byte setzen?

[Typer]

a = Val(s) 'convert string

Wie einfach
aber mir ist es absolut nicht mehr eingefallen. Hab viel zu kompliziert gedacht und dabei habe ich den Befehl schon öfters verwendet.

DANKE!!