Public Sub AEscojer(ByVal Escojido As String)
If Escojido = "Caracol" Then Caracol()
If Escojido = "Carcasa" Then Carcasa()
If Escojido = "Manzana" Then Manzana()
If Escojido = "Funda" Then Funda()
If Escojido = "Raton" Then Raton()
If Escojido = "Pila" Then Pila()
If Escojido = "Impermeable" Then Impermeable()
'....
'....
'....
'....
End Sub
Select Case Escojido
Case "Caracol"
Caracol()
Case "Carcasa"
Carcasa()
Case "Manzana"
Manzana()
...
....
'y así con todos los demás
End Select