Visual Basic - convertir numeros arabicos a romanos

porfa quiseira saeber si alguien tiene el codigo para convertir numeros a romanos por ejemp 2=II, gracias

Fijate en:

http://www.vb-helper.com/howto_roman_arabic.html

También te puedes fijar en esto:

Const LETRAS As String = "I,V,X,L,C,D,M"

Private Function ConvertRomano(ByVal sArabigo As String) As String
If Len(sArabigo) > 3 Then ConvertRomano = String(Mid(sArabigo, 1, Len(sArabigo) - 3), "M")
If Len(sArabigo) > 2 Then ConvertRomano = ConvertRomano & BuscarLetra(Mid(sArabigo, Len(sArabigo) - 2, 1), 4)
If Len(sArabigo) > 1 Then ConvertRomano = ConvertRomano & BuscarLetra(Mid(sArabigo, Len(sArabigo) - 1, 1), 2)
ConvertRomano = ConvertRomano & BuscarLetra(Mid(sArabigo, Len(sArabigo), 1), 0)
End Function

Private Function BuscarLetra(ByVal sRomano As String, ByVal i As Integer) As String
Dim a() As String
a() = Split(LETRAS, ",")
Select Case sRomano
Case 4
BuscarLetra = a(i) & a(i + 1)
Case 5
BuscarLetra = a(i + 1)
Case 9
BuscarLetra = a(i) & a(i + 2)
Case 6 To 8
BuscarLetra = a(i + 1) & String(sRomano - 5, a(i))
Case Else
BuscarLetra = BuscarLetra + String(sRomano, a(i))
End Select
End Function

y tu aportas algo??
so pringrao!!!!!