Binary digits

'https://rosettacode.org/wiki/Binary_digits
Imports System
Module Program
    Sub Main()
        Dim iBin As Integer() = {5, 50, 9000}
        Dim iCount As Integer

        For iCount = 0 To iBin.Count - 1
            Console.WriteLine(Convert.ToString(iBin(iCount), 2))
        Next

    End Sub
End Module