Dim F As Integer 
 
Private Sub Form_Load() 
F = FreeFile 
End Sub 
 
 
Private Sub cmdstart_Click() 
With Combo1 
.AddItem "Gerolsteiner" 
.AddItem "CocaCola" 
.AddItem "Weißbier" 
.AddItem "Radler" 
End With 
End Sub 
 
Private Sub Combo1_Click() 
Open "2.txt" For Append As F 
Print #F, Combo1.Text 
Close F 
End Sub