Si es solo eso puedes hacerte una funcioncilla:


Function equivalencia(ByVal strValor as String) As String


Select Case strValor


Case 1