Private Sub forme()
' checks whats in text2 and if an exchange name adds it to a combo box
Dim scan As String
Dim name As String 'name is the name of exch displayed in text2
'May not have anything to do with your problem, but Name is a reserved word
scan = Text1.Text
Text2 = Mid$(scan, 15, 16)...