Private Sub cmdCalc_Click()
    If IsNumeric(txtValue1.Text) And IsNumeric(txtValue2.Text) Then
        txtResults.Text = CDbl(txtValue1.Text) + CDbl(txtValue2.Text)
    Else
        txtResults.Text = "非法数字"
    End If
End Sub