Convertir de número Decimal a Romano en Visual Basic

Hola, bueno el día domingo una amiga me contacta preguntandome como se puede convertir de un número Decimal a Romano, el problema me lo pidió en Visual Basic claro vaya problema yo no recuerdo mucho de Visual Basic jaja o más bien ya me acostumbre a C#.

Pero muy más haya de que tuve que recordar los conceptos de Visual Basic llegue a una respuesta muy chafa pero que como dicen funciona jaja. Bueno el ejemplo funciona para números de 1 a 2000, ya si necesitan incrementarlo lo pueden hacer.

Les dejo cómo quedo la aplicación y más abajo les pongo el código y el proyecto para que lo descarguen lo desarrolle como "Aplicación de Windows en Visual Studio 2010".

Aquí les dejo el código con el que lo hice espero les ayude en algo, el código del botón: 

'Uziel Esau Mercado v1.0
        Dim N, u, d, c, m As Integer
        Dim Unidad() As String = {"", "I", "II", "III", "IV", "V", "VI", "VII", 

             "VIII", "IX"}
        Dim Decena() As String = {"", "X", "XX", "XXX", "XL", "L", "LX", "LXX", 

              "LXXX", "XC"}
        Dim Centena() As String = {"", "C", "CC", "CCC", "CD", "D", "DC", "DCC",                "DCCC", "CM"}
        Dim Mil() As String = {"", "M", "MM"}
        N = txtDecimal.Text()
        u = N Mod 10
        d = Math.Floor(N / 10) Mod 10
        c = Math.Floor(N / 100) Mod 10
        m = Math.Floor(N / 1000)
        If (N > 0 And N <= 2000) Then
            txtRomano.Text = Mil(m) + Centena(c) + Decena(d) + Unidad(u)
        Else
            txtRomano.Text = "Fuera de Rango"
        End If

Descargar Proyecto