Can somebody tell me what's wrong

'Median

If numbers.Length Mod 2 <> 0 Then
Text6.Text = ("" & numbers(numbers.GetUpperBound(0) \ 2).ToString)
'MsgBox("Median = " & numbers(numbers.GetUpperBound(0) \ 2).ToString)
Text6.Text = ("" & numbers(numbers.GetUpperBound(0) \ 2).ToString)