Te dejo un codigo de ejemplo que te puede servir

Lo he hecho a la carrera y tiene ejemplos de Select Case de una vez


Public Function Romanos(ByVal Numero As Integer) As String
If Numero...