Private Sub Command1_Click()
    Dim SaveData As String
    SaveData = "bind  " & Combo1.text & " " " & Combo2.text & " ; " &" & _
      "Combo3.text  & " " "
    Open App.Path & "\BuyCT.cfg" For Output As #1
    Print #1, SaveData
    Close #1
End Sub