I fixed it by changing the path I save to from ProgramFiles to User/AppData
<pre lang="vb">Dim pAppPath As String
pAppPath = Application.UserAppDataPath & "\Errors\errlog.txt"
If Not System.IO.Directory.Exists(Application.UserAppDataPath & "\Errors\") Then
System.IO.Directory.CreateDirectory(Application.UserAppDataPath & "\Errors\")
End If
'check the file
Dim fs As FileStream = New FileStream(pAppPath, FileMode.Append, FileAccess.Write, FileShare.Write)
Dim s As StreamWriter = New StreamWriter(fs)
s.Close()
fs.Close()