Function hasil(data As String) As Variant

Dim sum As Variant

Select Case text2

Case "+": sum = Val(text1) + Val(text3)
Case "-": sum = text1 - text3
Case "*": sum = text1 * text3
Case "/": sum = text1 / text3

End Select

hasil = sum


End Function

Private Sub cmdclean_Click()
text1.Text = ""
text2.Text = ""
text3.Text = ""
text4.Text = ""
End Sub

Private Sub cmdhasil_Click()

text4 = hasil(text2)

End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub