Public Sub Main()
    aFileNum = FreeFile
    Open "c:\Temp.txt" For Output As #aFileNum
    Print #aFileNum, "Hello World"
    Close #aFileNum
    ' ************ Opening the file in Notepad *******
    Shell "Notepad.exe" & " " & "c:\Temp.txt", vbMaximizedFocus
End Sub