Калькулятор контрольных массивов в VB6

В моем вычислительном классе мы работали над использованием контрольных массивов для создания базового калькулятора. Имейте в виду, что я никогда раньше не работал с контрольными массивами. Это код, который у меня сейчас есть:

Option Explicit
Private Sub CmdCalc_Click(Index As Integer)
    Dim TempSave1 As Double
    Dim Answer As Double
    Dim Symbol As String
    Dim TempSave2 As Double

    If CmdCalc(Index) = 10 Then
        TempSave1 = LblOutput.Caption
        Symbol = "/"
    ElseIf CmdCalc(Index) = 11 Then
        TempSave1 = LblOutput.Caption
        Symbol = "*"
    ElseIf CmdCalc(Index) = 12 Then
        TempSave1 = LblOutput.Caption
        Symbol = "-"
    ElseIf CmdCalc(Index) = 14 Then
        TempSave1 = LblOutput.Caption
        Symbol = "+"
    End If

    LblOutput.Caption = ""

    If Index = 13 Then
        TempSave2 = LblOutput.Caption
        Answer = TempSave1 & Symbol & TempSave2
    End If

    If Index = 0 Or 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 10 Or 11 Or 12 Or 14 Then
        LblOutput.Caption = LblOutput.Caption & CmdCalc(Index).Caption
    End If
End Sub


Private Sub CmdClear_Click()
    LblOutput.Caption = ""
End Sub

Единственная проблема, с которой я столкнулся, заключается в том, что после нажатия кнопки "=" переменная TempSave2 (используемая для получения моего ответа) остается пустой вместо числа, введенного пользователем. Я не уверен, как это исправить. Пытался все это переставить. Любая помощь приветствуется.

Первый пост здесь, пожалуйста, извините за плохой макет!

Спасибо, Кейран.

Простите за ужасную цветовую схему. Моя идея заключалась в том, что если мой учитель заставляет меня изучить эту ужасную концепцию, он сможет справиться с ужасными цветами: P