todo depende de como hayas cargado el combo. Te pongo como lo hago yo:
Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Me.ComboBox1.DataSource = Nothing
Dim DSPago As New DataSet
Dim DAPago As SqlDataAdapter
Dim SqlPago As String = "SELECT IdPago, DescripcionPago FROM TablaFormasPagos"
DSPago.Reset()
DAPago = New SqlDataAdapter(SqlPago, conexion)
DAPago.Fill(DSPago, "TablaFormasPagos")
If DSPago.Tables("TablaFormasPagos").Rows.Count > 0 Then
Me.ComboBox1.ValueMember = "IdPago"
Me.ComboBox1.DisplayMember = "DescripcionPago"
Me.ComboBox1.DataSource = TablaValoresCombo
End If
DSPago.Dispose()
DAPago.Dispose()
Cargándolo de esta manera, ahora puedes acceder tanto al código como a la descripción del valor que hayas seleccionado:
MsgBox(ComboBox1.SelectedValue.ToString) 'devuelve el IdPago
MsgBox(ComboBox1.Text) 'devuelve la DescripcionPago
Espero que te sirva!