Opening Notepad a saved notepad file and copying the data on it

Originally Posted by shg

How about instead

Sub Main()
  Dim sText         As String

  sText = File2Str("C:\somePath\someFile.txt")
End Sub

Function File2Str(sFile As String) As String
  ' Adapted from Andy Pope
  ' Returns a text file as a string
  Dim iFile         As Integer

  If Len(Dir(sFile)) Then
    iFile = FreeFile
    Open sFile For Binary Access Read As #iFile
    File2Str = Input(LOF(iFile), iFile)
    Close iFile
  End If
End Function

Absolutely Nothing Happens when I run that Code