К сожалению задача сложновата

1. 0.66666666666 не равно 2/3 - только приблизительно, т.е. придется рассматривать некоторые допущения, что не совсем корректно :)

Как вариант:
Вам надо представлять числа в виде не десятичных дробей. Предполагается, что и работа с ними ведется в виде таких дробей.
Следовательно:
1. Создаем тип:
Type tMy
числитель as Long
знаменатель as Long
End Type

2. Храним числа в этом типе, с ним производим операции его и выводим на экран (я обычно так делаю :) )
3. Не забываем после каждой арифметической операции применять к числителю и знаменателю алгоритм Евклида :)