Как добавить числовое значение в элементы ComboBox и отобразить вычисленное значение в TextBox?

Question

Как добавить числовое значение для каждого элемента в ComboBox и отобразить вычисленное значение в TextBox в VB.NET?

Я пытался использовать этот код:

Dim value As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Me.combobox1.Items.Add("Single")
    Me.combobox1.Items.Add("Double")
End sub

Private Sub Roomtype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    If combobox1.SelectedIndex = 0 Then
        value = Val(1000)
    ElseIf combobox1.SelectedIndex = 1 Then
        value = Val(2000)
End sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    txtTotal.Text = Val(value) * Val(textbox1.Text)
End sub

Например, я выбираю элемент «одиночный», затем умножаю его значение на 2, ожидаю, что выход в txtTotal.text будет 2000, но вывода нет.