Visual Basic - Asociar texto a numero

Buenas chicos:

os propongo un problema, al parecer muy facil, pero me estoy volviendo loco.
En una variable, se guardara una cadena de caracteres, concretamente : "Rampa" o "Mantenimiento" o "Fin"
necesito asociar esas cadenas aun numero diferentes , 0, 1 o 2

Lo he planteado asi, pero no me funciona

...
a30b1 = ctrl.GetRow(1).CellText(5) & " "

Select Case a30b1
case "rampa"
HMIRuntime.Tags ("a").Write 0
case "mantenimiento"
HMIRuntime.Tags ("a").Write 1
case "fin"
HMIRuntime.Tags ("a").Write 2
End Case

Estoy trabajando en WinCC Siemens, pero no ceo que se ha problema de Wincc, si no VB

Pues si solo son Tres por que no intentas con IF ...
If a30b1 = "RAMPA" Then
Variale = 0 ' o el control o lo que sea.
ElseIf a30b1 = "Matenimiento" Then
Variable = 1
ElseIf a30b1 = "Fin" Then
Variable = 2
Else
Variable = 999
End If