Dim Chromolength as integer
Chromolength = varchromolength * aVariables
Dim i as integer, j as integer, counter as integer
Dim Poparr() As Integer
Dim FitValarr() As Integer

ReDim Poparr(1 To PopSize, 1 To Chromolength)

For i = 1 To PopSize
  For j = 1 To Chromolength
    If Rnd < 0.5 Then
        Poparr(i, j) = 0
    Else
        Poparr(i, j) = 1
    End If
  Next j
Next i

For i = 1 To PopSize
 j = 1
 counter = Chromolength
 Do While counter > 0
   FitValarr(i) = FitValarr(i) + Poparr(i, counter) * 2 ^ (j - 1)
  j = j + 1
  counter = counter - 1
 Loop
Next i

FitValarr(i) = FitValarr(i) + Poparr(i, counter) * 2 ^ (j - 1)