Puedes hacerlo de muchas maneras, pero a mí se me ocurre esta:
*******************************************************************************
Dim i As Integer
Dim mayor As Long
Dim menor As Long
Dim suma As Long
mayor = 0
menor = 0
suma = 0
'Con esta estructura obtienes el mayor y el menor (teniendo las casillas en array)
For i = 0 To 5
If CajaTexto(i) > mayor Then
mayor = CajaTexto(i)
ElseIf CajaTexto(i) < menor Then
menor = CajaTexto(i)
End If
Next
'Así sumas los restantes
For i = 0 To 5
If CajaTexto(i) <> mayor And CajaTexto(i) <> menor Then
suma = suma + CajaTexto(i)
End If
Next
********************************************************************************
Un Saludo :)