Existe manera de simplificar este pedazo de codigo que solo adjunto parcialmente debido a su larga extensión?
Código:
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