Najpierw próbowałem na HEXach.-chyba jest lepiej widoczne. Spróbujcie jeśli macie chwilę. Nie wiem o co chodzi.
- Dim Temporary As Word
Temporary = Lookup(0 , Dane)
Print Temporary
Temporary = Lookup(1 , Dane)
Print Temporary
Temporary = Lookup(2 , Dane)
Print Temporary
Temporary = Lookup(3 , Dane)
Print Temporary
Temporary = Lookup(4 , Dane)
Print Temporary
Temporary = Lookup(5 , Dane)
Print Temporary
Temporary = Lookup(6 , Dane)
Print Temporary
End 'end program
Dane:
Data 0 , 0 , 0 , 7 , 1799 , 1799 , 1799 , 1799 , 1799,