Visual Basic - PASAR UN NUMERO DECIMAL A UN NUMERO FRACCIONARIO

HOLA AMIGOS COMO ESTAN, ESPERO QUE MUY BIEN. SOY UN NOVATO EN ESTO
DE LA PROGRAMACIÓN Y CADA DÍA QUISIERA APRENDER MÁS DE ESTE MUNDO. UTILIZO
VISUAL BASIC 6

Mi pregunta es la siguiente:

Elabore un programa el cual me resuelve ecuaciones de segundo grado osea de la forma
ax2 + bx +c = 0. Este tipo de ecuaciones normalmente tiene dos soluciones reales, muchas de ellas
son racionales (fraccionarias), pero obviamente al hacer el calculo de estas soluciones el programa
no me las muestra en forma de fraccionario si no en forma de numero decimal.

Por Ejemplo:

Si las soluciones de la ecuacion son X1 = 1/2 y X2= - 6/8 el me las muestra en el programa
X1= 0,5 y X2= - 0,75.

Estas soluciones cada una aparece en unos textbox los cuales llame TxtR1 y TxtR2. Lo que yo
quiero saber es como hago para que los TextBox me muestren la solución en forma de fraccionario
y no en forma de decimal.

Si alguno me pudiera colaborar le agradeceria muchísimo es algo urgente que tengo para la Universisdad.

JOHAN

Johan:
Prueba esta función. Se trata de convertir el número a cadena y de trabajar la parte fraccionaria y entera para obtener numerador y denominador de la fracción

'Agrega un comando para la prueba
Private sub Command1_Click
MsgBox DecimalHaciaEntero(1.75)
End Sub

'Función que convierte decimal a fracción
Private funcion DecimalHaciaEntero(Byval dec as single) as String
Dim s As String, fract As String, iPos As Long, lngFract As Long, inte As Long, deno As Long
s = cstr(dec)
iPos = InStr(1, s, ".", vbTextCompare)
If iPos < 1 Then Exit Sub
fract = Mid$(s, iPos + 1)
lngFract = CLng(Val(fract))
inte = CLng(Int(Val(s)))
deno = 10 ^ Len(fract)
s = (inte * deno + fract) & "/" & deno
DecimalHaciaEntero = s
End Function

Saludos Ruri