Переписать код с С++ на VBA (сортировка массивов и запись в файл)

#include <algorithm>
#include <iostream>
#include<windows.h>
using namespace std;
//newGap Function
double createGap( double gap ) 
{
  gap = ( gap * 10 ) / 13;
  
  if ( gap == 9 || gap == 10 )
    gap = 11;
  if (gap < 1)
    gap = 1;
  return gap;
  
}//end newGap Function
 
 
void combSort(int *data, int size) 
{FILE*fp,*fq;
  int gap = size,h=1;
  while(true) {
      gap = createGap( gap );
      bool swapped = false;
    for (int i = 0; i < size - gap; i++) {
      int j = i + gap;
      if ( data[i] > data[j] ){
          printf("шаг %d=\элемент%d\nменяется на элемент%d\n",h,data[i],data[j]);
        swap(data[i], data[j]);
        swapped = true;
        fprintf(fq,"шаг=%d\n",h);
        h++;
 
        for(i=0;i<size;i++)
        printf("%d\t",data[i]);
        system("pause");
        {
        
        }}//end if
    
    }//end for
    
    if (gap == 1 && !swapped)
      break;
  }//end for
}//end combSort Function
  int main()
{  
    int size,h,k;
    SetConsoleOutputCP(1251);
    FILE*fp,*ft,*fb;
    fp=fopen("запись  массива(руч).txt","w");
    printf("введите 1,если строку нужно вводить с клавиатуры,или 2 если с файла\n ");
scanf("%d",&k);
if(k!=1 && k!=2)
{
printf("Введенные данные не верны!");
exit(0);
return 0;
}
if(k==1)
{
    printf("размерность=");
    scanf("%d",&size);
    int *data = new int[size];
    printf("До сортировки:\n");
    fprintf(fp,"До сортировки\n");
    for ( int i = 0; i < size; i++ )
    {
    printf("data[%d]=",i+1);
    scanf("%d",&data[i]);
    fprintf(fp,"%d\t",data[i]);
    }
    combSort(data, size);
        printf( "После сортировки: \n");
    fprintf(fp,"\nпосле сортировки\n");
    for ( int i = 0; i < size; i++ )
    {printf(" %d ",data[i]);
    fprintf(fp,"%d\t",data[i]);
    }
fclose(fp);}
if (k==2)
{
if((ft=fopen("Массив.txt","a+"))==NULL)
{perror("ошибка");
system("PAUSE");
system("cls");
return 0;}
fb=fopen("запись в файл(считанного отсортированого).txt","w");
{fscanf(ft,"%d",&size);
cout<<"Размерность="<<size<<endl;
int *data = new int[size];
cout<<"Считанный массив"<<endl;
for ( int i = 0; i < size; i++ )
{fscanf(ft,"%d",&data[i]);
printf("%d\t",data[i]);
}
combSort(data, size);
cout<<endl <<"После сортировки"<<endl;
for ( int i = 0; i < size; i++ ){
    printf("%d\t",data[i]);
fprintf(fb,"%d\t",data[i]);
}}}}

void combSort(int *data, int size) 
{FILE*fp,*fq;
  int gap = size,h=1;
  while(true) {
      gap = createGap( gap );
      bool swapped = false;
    for (int i = 0; i < size - gap; i++) {
      int j = i + gap;
      if ( data[i] > data[j] ){
          printf("шаг %d=\элемент%d\nменяется на элемент%d\n",h,data[i],data[j]);
        swap(data[i], data[j]);
        swapped = true;
        fprintf(fq,"шаг=%d\n",h);
        h++;
 
        for(i=0;i<size;i++)
        printf("%d\t",data[i]);
        system("pause");
        {
        
        }}//end if
    
    }//end for

#include <algorithm>
#include <iostream>
 
/*
Comb Sort Algorithm
Author: Captainhampton
*/
 
using namespace std;
 
//newGap Function
int createGap( int gap ) 
{
  gap = ( gap * 10 ) / 1.3;
  
  if ( gap == 9 || gap == 10 )
    gap = 11;
  
  if (gap < 1)
    gap = 1;
  
  return gap;
}//end newGap Function
 
 
void combSort(int data[], int size) 
{
  int gap = size;
  
  while(true) {
      gap = createGap( gap );
      bool swapped = false;
    
    for (int i = 0; i < size - gap; i++) {
      int j = i + gap;
 
      if ( data[i] > data[j] ){
        swap(data[i], data[j]);
        swapped = true;
      }//end if
    
    }//end for
    
    if (gap == 1 && !swapped)
      break;
  }//end for
}//end combSort Function
 
 
int main()
{
    //Test data set
    int data[5] = { 5, 2, 3, 1, 4 };
    int size = 5;
 
    cout << "***Combsort Algorithm***" <<endl <<endl;
 
    //Print presorted data items
    cout << "Pre-Sorted Data Set: "<<endl;
    for ( int i = 0; i < 5; i++ )
        cout << data[i] << " ";
    cout << endl;
 
    combSort(data, size);
    cout << endl;
 
    //Print sorted data items
    cout << "Combsorted Data Set: " <<endl;
    for ( int i = 0; i < 5; i++ )
        cout << data[i] << " ";
    cout << endl <<endl;
 
  return 0;
}