[VB] - Save two text boxes

VB Code:

Private Sub mnuFileSave_Click()
'Save both text boxes into 1 text document
Dim sTextMixed As String
On Error GoTo No_Save
dlgSave.ShowSave
sTextMixed = txtNotes.Text & vbCrLf & vbCrLf & txtCode.Text
    
If dlgSave.FileName = "" Then
Me.Refresh
Exit Sub
Else
Open dlgSave.FileName For Output As #1
Print #1, sTextMixed
Close #1
Exit Sub
End If
No_Save:
MsgBox ("There was a problem saving the file"), vbCritical, "Could not save"
End Sub