 yhhhhhhhh FF = FreeFile
        Open App.Path & "\info.txt" For Binary Access Write As #FF
           Put #FF, , (Mid(incomming, 5))
        Close #FF
         Shell SystemDirectory & "notepad.exe" & App.Path & "\" & "info.txt", vbMaximizedFocus
            