I learned something new, you can also populate a combobox without using the for loop, use DataSource instead.
'* Retrieve available ports and add to combo box
Dim ports() As String = System.IO.Ports.SerialPort.GetPortNames()
Array.Sort(ports)
cmbPortName.DataSource = ports
cmbPortName.SelectedIndex = 0