Necesito me orienten en este ejercicio de un Simulador de Horas de Televisión.

La pregunta es que me da un error cuando en el "frame Ingresar Fichas " el Button3, que es Ingresar Fichas .En el Textbox " ValorTotal.Text . No me toma el valor que figura del textBox 2 y que se multiplica por (30) que es el valor Total, el cual me dice en el Label la cantidad de horas que pude Ver televisión, en una habitación de un Sanatorio, Hospital, etc.

Con el teclado numérico ingreso el Nº de Habitación, Con el Butoon "correcto", aceta y me tralada al Label la cantidad de horas y minutos.

Este ejercicio que lo hago yo al ver esta maquina y decidí si se podía hacer en excel.

Envío Figura de la Máquina y el Código .Espero que lo puedan ver ya que no se como insertar Adjuntos en este página.

Private Sub cmdCero_Click()
 txthabitacion.Text = txthabitacion.Text + "0"
End Sub
Private Sub cmdCinco_Click()
    txthabitacion.Text = txthabitacion.Text + "5"
End Sub
Private Sub cmdcorrecto_Click()
   If txtValorTotal.Text = 30 Then
        lblHoras.Caption = "3 hs 30 minutos"
    Else
        If txtValorTotal.Text = 60 Then
            lblHoras.Caption = " 10 hs 15 minutos "
    Else
        If txtValorTotal.Text = 90 Then
            lblHoras.Caption = " 22 hs 45 minutos "
        End If
        End If
    End If
End Sub
Private Sub cmdCuatro_Click()
    txthabitacion.Text = txthabitacion.Text + "4"
End Sub
Private Sub cmdDos_Click()
    txthabitacion.Text = txthabitacion.Text + "2"
End Sub
Private Sub cmdLimpiar_Click()
    txthabitacion.Text = ""
    txtValorTotal.Text = ""
    txtCantidad.Text = ""
End Sub
Private Sub cmdNueve_Click()
    txthabitacion.Text = txthabitacion.Text + "9"
End Sub
Private Sub cmdocho_Click()
    txthabitacion.Text = txthabitacion.Text + "8"
End Sub
Private Sub cmdSeis_Click()
    txthabitacion.Text = txthabitacion.Text + "6"
End Sub
Private Sub cmdSiete_Click()
    txthabitacion.Text = txthabitacion.Text + "7"
End Sub
Private Sub cmdUno_Click()
     txthabitacion.Text = txthabitacion.Text + "1"
End Sub
Private Sub cmdTres_Click()
    txthabitacion.Text = txthabitacion.Text + "3"
End Sub
Private Sub CommandButton1_Click()
    txtCantidad.Text = 1
End Sub
Private Sub CommandButton2_Click()
    txtCantidad.Text = 2
End Sub
Private Sub CommandButton3_Click()
txtCantidad.Text = 3
End Sub
Private Sub txtCantidad_Change()
  If Val(txtCantidad.Text) = 1 Then
    txtValorTotal.Text = Str(Val(txtCantidad.Text) * 30)
 Else
    If Val(txtCantidad.Text) = 2 Then
        txtValorTotal.Text = Str(Val(txtCantidad.Text) * 30)
Else
    If Val(txtValorTotal.Text) = "3" Then
        txtValorTotal.Text = Str(Val(txtCantidad.Text) * 30)
End If
End If
End If
End Sub
Private Sub UserForm_Click()
End Sub