For some reason the following quit working in the MS "Vista" operation system. It opens notepad but it blank and it should contain data.

Private Sub OpenResults_Click()
SetFocusTotbN1
Dim CallWord As Long
On Error Resume Next
dummy = Dir(App.Path + "\TVRF_Results.txt", 0)
Open dummy For Append As #1
Close #1
If dummy = "" Or FileLen(App.Path + "\TVRF_Results.txt") = 0 Then
dummy = MsgBox("No results saved yet.", 0, "No results available to view!")
Exit Sub
End If
CallWord = Shell("notepad " + Chr$(34) + App.Path + "\TVRF_results.txt" + Chr$(34), 3)
On Error GoTo 0
End Sub

Thanks
Cathy