Исправьте мне программный код в visual Basiсе пожалуйста!

Не корректная какая-то задача, можно просто отсортировать по убыванию и все,, ,
Но раз надо
1. вводим массив и находим СРЕДНЕЕ АРИФМ (Sum), а то с чем сравнивать то?
Дальше массив А все числа > CР, массив B < CP, поехали

Private Sub Command1_Click()
Dim x(15) As Single
Dim A(1 to 15) As Single ; числа < СР
Dim B(1 to 15) As Single ; числа > СР
Dim conA as Integer ;счетчики этих чисел
Dim conB as Integer
Dim sum As single ;СР
dim i As Integer

Cls
Print "Исходный массив"
sum=0
For I = 1 To 15
x(I) = Val(InputBox("введите x(I)"))
sum=sum+x(i)
Print Tab(5); x(I);
Next I
sum=sum/15 ; нашли СР. АРИФМ
conA=1
conB=1
For I = 1 To 15
If x (I) >= sum then
A(conA)=x(i)
conA=conA+1
else
B(conB)=x(i)
conB=conb+1
End if
Next I
For I = 1 To conA
x(I)=A(i)
Print Tab(5); x(I);
next I
For I = conA+1 To 15
x(i)=B(I-conA)
Print Tab(5); x(I);
next i
End Sub

Э.... странный какой то код
это не VB

VB, VB...
Просто не все помнят про окно отладочных сообщений.
А вот условия-то у вас и нету!
"скобка" End If присутствует, сравнение тоже есть, а самого IF - нет. И THEN тоже не хватает.
Глянте-ка в конспектик! Или нажмите F1 на слове IF...
X(I)/15 - это не среднее.
условие, где меньше - лишнее.
Проще сделать
FOR I=1...
FOR J=I+1...
IF X(J)>Среднее THEN
Копия=X(I)'не помню, остался-ли в VB SWAP
X(J)=X(I)
X(I)=Копия
END IF
NEXT J
NEXT I