IA = una variable que la recorre (el largo es 3, al parecer)
For IA = 1 To 3
Luego consulta si la posicion (1,valor de IA) = 1
If (A(1, IA) = 1) Then
Acá me jodio porque esa instruccion no existe en VB, la mas parecida es "iswholeword" que BUSCA un string , pero aca este compadre parece que quiere ASIGNAR un valor (X) lo que no cuadra ????
ISWHOLES(IA) = X
ElseIf (A(1, IA) = 0) Then
ISWHOLES(IA) = Y
Else
ISWHOLES(IA) = ""
End If
Como dijo otro forero esta es una vil barra de progreso en VB
FPROGRESS.ProgressBar1.Value = FPROGRESS.ProgressBar1.Value + 1
Next IA
Ahora falta que expliques que diablos quieres hacer