combobox fejl!?

Hvad laver jeg forkert!?

Private Sub CommandButton1_Click()
If ComboBox1.Value = True Then
Select Case ComboBox1.ListIndex
    Case 1
      ActiveSheet.Range("L4").Value = "Test 1" 'værdi den skal skrive
    Case 2
      ActiveSheet.Range("L4").Value = "Test 2" 'værdi den skal skrive
    Case 3
      ActiveSheet.Range("L4").Value = "Test 3" 'værdi den skal skrive
  End Select
  ComboBox1.ListIndex = 0
  End If
End Sub


Private Sub UserForm_Activate()
  ComboBox1.AddItem "-", 0
  ComboBox1.AddItem "T1", 1
  ComboBox1.AddItem "T2", 2
  ComboBox1.AddItem "T3", 3
 
  ComboBox1.ListIndex = 0
End Sub