Calcular mediana

[Jhonnyf]

Aqui un Algoritmo haciendo lo que pides (Ordenar y sacar el Valor intermedio) usando el Algoritmo Burbuja

Código:

Private Function ValorIntermedio(a As Long, b As Long, c As Long) As Long
Dim i As Integer, j As Integer
Dim Ordenado(3) As Long 'le dos 1 más para que sirva como temporal
'asiganamos los valores dador
Ordenado(0) = a
Ordenado(1) = b
Ordenado(2) = c

'Hacemos el Algoritmo de Ordenamiento Burbuja
    For i = 0 To 2
        For j = i + 1 To 2
        If Ordenado(i) > Ordenado(j) Then
            Ordenado(3) = Ordenado(j)
            Ordenado(j) = Ordenado(i)
            Ordenado(i) = Ordenado(3)
        End If
        Next
    Next
'Devolvemos el valor intermedio, en este caso el Index 1
    ValorIntermedio = Ordenado(1)
End Function