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