obtener los valores de un Combobox

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

' selecciona por posicion devuelve un integer

Dim selectedIndex As Integer
selectedIndex = ComboBox1.SelectedIndex

' seleciona por texto que contiene el combo devuelve un string

Dim selectedItem As Object
selectedItem = ComboBox1.SelectedItem

MessageBox.Show("Selected Item Text: " & selectedItem.ToString() & Microsoft.VisualBasic.Constants.vbCrLf & _
"Index: " & selectedIndex.ToString())
End Sub