帮我用VB编一个简单的计算器

http://www.jianping.com.cn/NewWeb/departmentSite/keji/JS/QFM/vbjc/KJ6/Index.htm

要求实现什么功能啊？

.......
你不会吧

txt、txtResult是textbox
cmdOK是commandbutton
------------------------------------
Private Function KEMP(lki)
On Error GoTo Errorhandle
Dim Lengh As Integer, Total As Integer
Dim Point As Integer
Dim Value() As Double
Dim Aura() As String
Dim Start As Integer, Tail As Integer
ReDim Value(0 To 0)
ReDim Aura(0 To 0)
Lengh = Len(lki)
Start = 1
For i = 1 To Lengh
kq = Mid(lki, i, 1)
Select Case kq
Case "+"
Tail = i - 1
ReDim Preserve Value(UBound(Value) + 1)
ReDim Preserve Aura(UBound(Value) + 1)
Point = Point + 1
Aura(Point) = "+"
Value(Point - 1) = Val(Mid(lki, Start, Tail - Start + 1))
Start =