Несовпадение типов - VB (59364)

'пузырьковая сортировка массива состоящего из строк, последний элемент которых участвует в сравнение
For i = 1 To j
 For n = 1 To j - i
x = Val(Mid(a, Len(a(n)), 1))
y = Val(Mid(a, Len(a(n + 1)), 1))
 If x < y Then
 buf = a(n + 1)
 a(n + 1) = a(n)
 a(n) = buf
 End If
 Next n
Next i