How to find the median value in textboxes

[king05]

Hello,

Can someone help to find the median value ignoring the blanks/skipping ZERO in textboxes in userform

I tried this code but it does not show any value.

Dim mid As Variant
mid = Array(Me.C1, Me.C2, Me.c3, Me.C4, Me.C5, Me.C6, Me.C7, Me.C8, Me.C9)
If IsnNumeric(mid) Then
Me.C11= Application.WorksheetFunction.Median(Val(mid))
End If