Verificar que en la ComboBox tenga algún dato.

Estimado.

Juanto con saludarlo le comento que tengo una complicación con una comboBox, la idea es que si la ComboBox no tiene seleccionado algún dato se despliegue un userform, solo hasta que el comboBox tenga datos seguirá con el resto de la Macro, Gracias

Private Sub CommandButton1_Click()
If ComboBox1.Text = "" Then UserForm2.Show

'Aquí es donde me falta agregar algo para que la macro siga solo si la ComboBox tiene datos

Sheets("Vencimientos").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = TextBox1
Range("I1").Select
ActiveCell.FormulaR1C1 = ComboBox1
Sheets("Base_Datos").Select
Periodo_Sociedad.Hide
Mensaje_Info.Show
End Sub

Saludos