Underc0de - La Casa de los Informáticos

holaaaaaa a todos quisiera saber como convertir decimales a binario en Visual basic pero con una condicion no ocupando bucles ni funciones de visual :D gracias saludos

Fijate si esto te sirve:

Public Function Dec2Bin(numero As Integer) As String
If numero <= 2 Then 'Caso Base
Dec2Bin = (numero \ 2) & (numero Mod 2)
Else 'Caso Recursivo
Dec2Bin = Dec2Bin(numero \ 2) & numero Mod 2
End If
End Function

Saludos!
ANTRAX