ho provato a fare così ma non va!!

codice:
Private Sub Cmb_Dest_Change() 
Select Case 1     
Case 1     
Open "C:\Fattura.txt" For Output As #1     
Print #1, "Agenzia di viaggi"     
Print #1, "Nome: "; nome     
Print #1, "Cognome: "; cogn     
Print #1, "Indirizzo Residenza: "; ind     
Print #1, "Numero Persone: "; num 
Close 
End Select 
End Sub