Escrevendo uma função que converte um valor decimal em binário

'Este exemplo mostra como escrever um função que
'converte um valor decimal em binário

Module Module1
  Sub Main()
    Dim dec As Integer = 128
    Dim bin As String = DecToBin(dec)

    Console.WriteLine(dec & " em binário é " & bin)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub

  Public Function DecToBin(ByVal dec As Long) As String
    Dim tmp As String
    Dim n As Long

    n = dec

    tmp = Trim(Str(n Mod 2))
    n = n \ 2

    Do While n <> 0
      tmp = Trim(Str(n Mod 2)) & tmp
      n = n \ 2
    Loop

    Return tmp
  End Function
End Module