Private Sub cbo_Host_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    If cbo_Host.Text <> "" Then
      Dim b As Integer
      For b = 0 To cbo_Host.ListCount
        If cbo_Host.List(b) = cbo_Host.Text Then
          cbo_ID.SetFocus
          Exit Sub
        End If
      Next
      cbo_Host.AddItem (cbo_Host.Text)
      cbo_ID.SetFocus
    End If
    cbo_ID.SetFocus
  End If
End Sub