Port Java to Vb6

[CVMichael]

Also... i just noticed... ac is a string...

Private Function BitShift(ac() As Byte) As BitVector
Dim i1 As Integer
Dim k1 As Integer
Dim l1 As Integer
Dim TempBitSet1 As BitVector
Set TempBitSet1 = New BitVector
 
    i1 = Len(ac) * 8
    TempBitSet1.NumElements i1
    For j1 = 0 To i1
        k1 = j1 & 7
        l1 = j1 \ 8
        If (ac(l1) And &HFF And 128 - k1) <> 0 Then TempBitSet1.SetBit j1
    Next a
    Set BitShift = TempBitSet1
End Function

or

Private Function BitShift(ac As String) As BitVector
Dim i1 As Integer
Dim k1 As Integer
Dim l1 As Integer
Dim TempBitSet1 As BitVector
Set TempBitSet1 = New BitVector
 
    i1 = Len(ac) * 8
    TempBitSet1.NumElements i1
    For j1 = 0 To i1
        k1 = j1 & 7
        l1 = j1 \ 8
        If (Asc(Mid(ac, l1 + 1, 1)) And &HFF And 128 - k1) <> 0 Then TempBitSet1.SetBit j1
    Next a
    Set BitShift = TempBitSet1
End Function