Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim r As New Random
        Dim zahl As Int32 = r.Next(255)
        Dim s As String = zahl.ToString & vbCrLf
        For i As Int32 = 0 To 7
            s &= "Bit" & i.ToString & " = " & BitTest(zahl, i).ToString & vbCrLf
        Next
        MsgBox(s)
    End Sub
 
    Private Function BitTest(ByVal value As Byte, ByVal Bitnr As Int32) As Int32
        Return IIf((value And 2 ^ Bitnr) > 0, 1, 0)
    End Function
End Class