求高人帮助解决一下

我是新学VB的，想自己试着编一个文本框的计算器，哪位兄弟能帮忙看下，这点代码问题出在哪里了，不胜感激。
Private Sub cmddsignchange_Click()  '添加正负号
Dim data As Integer
data = Val(Txtscreen.Text)
length = Len(Txtscreen.Text)
If data > 0 Then
    Txtscreen.Text = data * (-1)
Else
    Txtscreen.Text = Right(Txtscreen.Text, length - 1)
End If
End SubPrivate Sub cmdequ_Click()   '等号
Dim result As Double
Dim second As Double
second = Val(Txtscreen.Text)
sign = Index
Select Case sign
Case 0
    result = first + second
Case 1
    result = first - second
Case 2
    result = first * second
Case 3
    If second = 0 Then
        MsgBox "除数不能为零"
    Else
        result = first / second
    End If
End Select
Txtscreen.Text = CStr(result)
End SubPrivate Sub cmdnumber_Click(Index As Integer)    
If Txtscreen.Text = "0" Then
    Txtscreen.Text = CStr(Index)
Else
    Txtscreen.Text = Txtscreen.Text & CStr(Index)
End If
End SubPrivate Sub Cmdon_Click()
Txtscreen.Text = "0"
End SubPrivate Sub cmdoperater_Click(Index As Integer)
Dim first As Double
first = Val(Txtscreen.Text)
Txtscreen.Text = "0"
End SubPrivate Sub cmdpoint_Click()
Txtscreen.Text = Txtscreen.Text & "."
End SubPrivate Sub Form_Load()
For Index = 0 To 9
    cmdnumber(Index).Caption = cmdnumber(Index).Index
Next Index
End Sub