criar arquivo texto apartir do que aparece no combobox

[RICARDO_29 0]

Boa noite galera estou com o seguinte problema preciso q o meu programa crie arquivo txt apartir do que aparece no combox " o programa é o seguinte no form tenho um combox q busca referencia em um arquivo txt e 3 caixas de txt uma para colocar o numero do aluno,outra a nota 1 , e outra a nota 2 quero q o programa gere arquivo txt xom esses dados para cada matéria clicada"

o código fonte q criei é o seguinte:

 

Option Explicit
Dim naluno As Integer
Dim n1 As Single
Dim n2 As Single

Private Sub CMD_GRAVAR_Click()
Dim x As String
Dim NOME As String
Dim PORTUGUES As String
Dim MATEMATICA As String

If cbo_disc.Text = MATEMATICA Then
 NOME = "MATEMATICA" & ".txt"
    
    If Dir$(NOME) = "" Then
        MsgBox "Não existe"
        Exit Sub
        Open NOME For Input As #1
    Else
        Open NOME For Append As #1
    End If
    
   Do While Not EOF(1)
        Line Input #1, x
        naluno = Left(x, 3)
        n1 = CSng(Mid(x, 4, 3))
        n2 = CSng(Mid(x, 5, 3))
        
   Loop
       
      Open NOME For Output As #1
  Print #1, naluno
  Print #1, n1
  Print #1, n2
  
    Close #1
End If

Unload Me

End Sub

Private Sub Form_Load()
 
 Dim t As String
 Dim NOME As String
 Dim a_line As String
 
Open "DICIPLINA.txt" For Input As #1
       Line Input #1, t
        cbo_disc.AddItem t
         Line Input #1, t
       cbo_disc.AddItem t
       Line Input #1, t
       cbo_disc.AddItem t
       Line Input #1, t
      cbo_disc.AddItem t
      Line Input #1, t
      cbo_disc.AddItem t
      
Do While Not EOF(1) 'Vai para fim de arquivo
 Line Input #1, t  'Ler a linha de dados do arquivo
a_line = a_line + 1 'Pula para a linha seguinte do arquivo cada vez que o laço e repitido, até chegar a última linha
cbo_disc.AddItem a_line 'Preenche o ComboBox com os dados do adicionando cada linha até a última linha do arquivo
Loop 'Finaliza o Laço
Close #1 'Fechar o arquivo
End Sub

Private Sub TXT_ALUNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44

If KeyAscii <> 8 Then
End If
Select Case KeyAscii
        Case 48 To 57, 8, 44, 46
        Case Else
            KeyAscii = 0
    End Select
End Sub

Private Sub TXT_N1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44

If KeyAscii <> 8 Then
End If
Select Case KeyAscii
        Case 48 To 57, 8, 44, 46
        Case Else
            KeyAscii = 0
    End Select
End Sub


Private Sub TXT_N2_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44

If KeyAscii <> 8 Then
End If
Select Case KeyAscii
        Case 48 To 57, 8, 44, 46
        Case Else
            KeyAscii = 0
    End Select
End Sub

[Claudio Neto 3]

Para trabalhar com arquivos texto, criar, escrever, apagar, ler, utilize um componente chamado filesystemobject, fso.

Procure no fórum que achara tópicos ensinando a usá-lo