modifica combobox per scelta

Option Explicit

Private Sub cmdCancel_Click()
'Unload the userform
    Unload Me
End Sub

Private Sub cmdOkay_Click()
'Verify that an item was selected
    If Me.ComboBox1.BoundValue = vbNullString Then
        MsgBox "You did not choose an item!", vbOKOnly
    Else
        MsgBox "You choose " & Me.ComboBox1.BoundValue, vbOKOnly
    End If
    Unload Me
End Sub

Private Sub UserForm_Initialize()
'Load the combobox with a variety of household pets
    With Me.ComboBox1
        .AddItem ("archivia1")
        .AddItem ("archivia2")
    End With
End Sub

Private Sub cmdOkay_Click()
    'Verify that an item was selected
    If Me.ComboBox1.BoundValue = vbNullString Then
        MsgBox "You did not choose an item!", vbOKOnly
    Else
        MsgBox "You choose " & Me.ComboBox1.BoundValue, vbOKOnly
        If ComboBox1.Text = "archivia1" Then
            Call Archivia1
        ElseIf ComboBox1.Text = "archivia2" Then
            Call Archivia2
        Else
            MsgBox "Non hai inserito un richiamo valido!"
        End If
    End If
    Unload Me
End Sub