Visual Basic.NET - Este codigo se puede simplificar

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