ciao LMondi,

...non troppo difficile

se 4/25 significa avere 25 parti e prenderne 4, per calcolare quante parti mancano per giungere all'unità basta fare 25-4 quindi la frazione "complementare" sarà 21/25

considerata la barra come separatore, una Split risolve il problema:

codice:
Fraz=Split(Text1.Text,"/")
Text2.Text = Trim(Fraz(1)-Fraz(0)) & "/" & Trim(Fraz(1))
credo che possa funzionare

Boolean