Private Sub Command1_Click()

C = Val(Text1.Text)
F = (9 / 5) * C + 32
Text2.Text = Str(F)

End Sub

Private Sub Command2_Click()

F = Val(Text2.Text)
C = (5 / 9) * (F - 32)
Text1.Text = Str(C)

End Sub