who can help me to derive this C codes to VB 6.0 that can draw

#include<stdio.h>
#include<conio.h>
main()
{
int i,j,k,l;m,n,r
const char a[66]={'A','B','C','D','E','F','G','H','I','J','K','L', 'M','N','O','P','Q','R','S','T','U','V','W','X','Y ','Z','a','b,'c','d','e','f','g','h','i','j','k','l', 'm','n','o','p','q','r','s','t','u','v','w','x','y ','z','0','1','2','3','4','5','6','7','8','9','-','*', '_','@'};
FILE *dosya;
dosya=fopen("murat.txt","w");
for(i=0;i<66;i++)
for(j=0;j<66;j++)
for(k=0;k<66;k++)
for(l=0;l<66;l++)
for(m=0;m<66;m++)
for(n=0;n<66;n++)
for(r=0;r<66;r++)
fprintf(dosya,"%c%c%c%c\n",a,a[j],a[k],a[l],a[m],a[n],a[r]);
fclose(dosya);
}

or can you send wordlist maker code as this