criar arquivo texto apartir do que aparece no combobox

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