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

En tu codigo seria mejor usar Select Case o ElseIf ya que tal como lo tienes se evaluan todas las instrucciones.

No acabo de entender a que te refieres cuando dices "simplificar", pero aqui dejo un ejemplo de dos formas de llamar a una funcion por su nombre

Código:

Imports System.Collections.Generic
Imports System.Reflection

Public Class Form1

    '------------------------------------------------------------
    ' Esto requiere .NET 3.5 o superior
    Private ReadOnly ffff As New Dictionary(Of String, Action)() From {
        {"A", AddressOf A},
        {"B", AddressOf B},
        {"C", AddressOf C},
        {"D", AddressOf D}
    }

    Private Sub Escojer_A(ByRef v As String)

        If ffff.ContainsKey(v) Then ffff(v).Invoke()
    End Sub
    '------------------------------------------------------------

    '------------------------------------------------------------
    ' Otra forma de llamar a las funciones
    Private Sub Escojer_B(ByRef v As String)

        Dim mi As MethodInfo = Me.GetType().GetMethod(v, BindingFlags.NonPublic Or BindingFlags.Instance)
        If mi IsNot Nothing Then mi.Invoke(Me, Nothing)
    End Sub
    '------------------------------------------------------------

    Private Sub A()
    End Sub

    Private Sub B()
    End Sub

    Private Sub C()
    End Sub

    Private Sub D()
    End Sub

    Private Sub E()
    End Sub
End Class

Muchisimas gracias, me sirvió muchisimo esto:

Código:

Private Sub Escojer_B(ByRef v As String)

        Dim mi As MethodInfo = Me.GetType().GetMethod(v, BindingFlags.NonPublic Or BindingFlags.Instance)
        If mi IsNot Nothing Then mi.Invoke(Me, Nothing)
    End Sub

Esto es mas corto:
Dim Argument As Object() = {Variable1, Variable2} 'Especificar los parametros
CallByName(FormALlamar, "StringDeLaFuncion", CallType.Method, Argument) 'Llamada a la funcion