Option Compare Database

Private Sub Command4_Click()
Text8 = Val(Text0.Value) + Val(Text2.Value)
End Sub
Private Sub Command5_Click()
Text10 = Val(Text0.Value) - Val(Text2.Value)
End Sub

Private Sub Command6_Click()
Text12 = Val(Text0.Value) * Val(Text2.Value)
End Sub

Private Sub Command7_Click()
Text14 = Val(Text0.Value) / Val(Text2.Value)
End Sub