VB6: Jak odczytać pojedyncze bity zmiennej Byte i zamienić na String z 0 i 1?

mam pytanie jak w VB6 zmienic zmienna typu byte na string, ale zeby w tekscie uzyskac 1 lub 0 czyli wartosci pojedynczych bitow zmiennej byte.
Ogolnie chodzi mi o "dobranie" sie do bitow zmiennej byte.
pozdrawiam!

Witam
Generalnie do konwersji zmiennych na typ String służy polecenie STR

a odwrotną funkcję uzyskujemy przy pomocy polecenia VAL

Powodzenia

1. zaalokuj i wyzeruj stringa o pojemności 8 znaków (+1 na null)
2. w pętli o ośmiu przebiegach:
pomnóż owego byte przez 2
większy od 255?
tak: odejmij od niego 256 i dopisz "1" do stringa
nie: dopisz "0" do stringa

next

jeśli VB wywali error że przepełniłeś byte to zanim pomnożysz przez 2 to sprawdź czy byte>127, jeśli tak to odejmij 128 i dopisz "1" do stringa

rozwiązałem to w ten sposób:

For petla2 = 0 To 7
wynik = (tempB Mod 2)
If wynik = 0 Then
dc(a) = "0"
Else
dc(a) = "1"
end If
tempB = tempB \ 2
a = a + 1
Next

dokładniej użyłem tego w swoim projekcie do wyświetlania stanów poszczególnych wejść cyfrowych z modułu, który wysyłał stan tych końcówek w postaci wartości binarnej....8 wejść to jeden bajt.
Pozdrawiam![/quote]