Private Sub savelog_Click()
Open App.Path & "/" & "PortPlus.Log" For Output As #1
Print , Form1.Text1
Close #1
End Sub