06/08/22 23:55:56
>>390
Dim fn As Integer = FreeFile()
Try
FileOpen(fn, SaveFileDialog1.FileName, OpenMode.Output)
Dim line As String
For Each line In TextBox1.Lines
PrintLine(fn, line)
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
FileClose(fn)
End Try