RosettaCodeData/Task/Binary-digits/Visual-Basic-.NET/binary-digits.vb

Module Program
    Sub Main
        For Each number In {5, 50, 9000}
            Console.WriteLine(Convert.ToString(number, 2))
        Next
    End Sub
End Module