分数の計算のプログラミングです。

ユークリッドの互除法って最大公約数を求める理論ですよね？
何回も最大公約数を求めるのは面倒なので
足し算自体は 簡単に (分子1 * 分母2) + (分子2 * 分母1)で　分子
分母1 * 分母2 で　分母　を計算して

求めた分子と分母を最大公約数を使い約分しました。
なお参考ソースは　数値チェックや0除算などのチェックを行っていません。
コマンドボタンとテキストボックスを使用しました。

参考ソース
↓↓↓↓↓↓↓↓↓↓↓↓↓

Private Sub Command1_Click()

Dim la As Long
Dim lb As Long
Dim lm As Long
Dim ln As Long
Dim li As Long

Dim ltxtU1 As Long '分子入力1
Dim ltxtD1 As Long '分母入力1

Dim ltxtU2 As Long '分子入力1
Dim ltxtD2 As Long '分母入力1

Dim ltxtU3 As Long '分子答え
Dim ltxtD3 As Long '分母答え

ltxtU1 = Text1(0).Text
ltxtD1 = Text1(1).Text
ltxtU2 = Text1(2).Text
ltxtD2 = Text1(3).Text

la = (ltxtU1 * ltxtD2) + (ltxtU2 * ltxtD1) '分子
lb = (ltxtD1 * ltxtD2) '分母

lm = la
ln = lb

Do Until lm Mod ln = 0

li = lm Mod ln
lm = ln
ln = li

Loop

'最大公約数 = ln

ltxtU3 = la / ln
ltxtD3 = lb / ln

Text1(4).Text = ltxtU3
Text1(5).Text = ltxtD3

End Sub