Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub OpenSectionNameTxt() Dim txt As String Dim ff As Integer Dim fName As String ff = FreeFile fName = gMyPath & "\Section.txt" Open fName For Input As #ff Input #ff, txt Close #ff Debug.Print txt End Sub
How to correct this ?
Sub SaveSectionName() Dim sFileText As String Dim fName As String Dim fNu As Integer Dim txt As String fName = gMyPath & "\Section.txt" txt = txtDescription 'textbox contents fNu = FreeFile Open fName For Output As #fNu Print #fNu, txt Close #fNu End Sub
Join the community of 500,000 technology professionals and ask your questions.