Private Sub Command1_Click()
    Dim b As Byte
    Dim bErg As Byte
 
    b = 255
    bErg = b And &HF8
 
    MsgBox CStr(bErg)
 
    bErg = moveRight(b, 4)
    MsgBox CStr(bErg)
End Sub
 
Public Function moveRight(b As Byte, lAnz As Long) As Byte
    Dim bArr(8) As Byte
    Dim bErg As Byte
    Dim i As Long
 
    If lAnz < 1 Or lAnz > 8 Then
        MsgBox "Fehler"
        Exit Function
    End If
 
    i = 8
    Do While b / 2 > 0
        bArr(i) = b Mod 2
        i = i - 1
        b = Int(b / 2)
    Loop
 
    For i = 8 To 1 Step -1
        If i > lAnz Then
            bArr(i) = bArr(i - lAnz)
        Else
            bArr(i) = 0
        End If
    Next i
 
    For i = 0 To 7
        bErg = bErg + bArr(i + 1) * 2 ^ (7 - i)
    Next i
 
    moveRight = bErg
End Function

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1