strTypeEx = ReadIniFile("Type", "Type", App.Path & "\set.ini")

strTypeEx = Split(strTypeEx, ";")

For i = LBound(strTypeEx) To UBound(strTypeEx)

   CboType.AddItem Trim(strTypeEx(i))

Next i