Dump_String_To_File

Sub Dump_String_To_File (ByVal strString As String, ByVal strFile As String)
  Dim fileFile As Integer
  fileFile = FreeFile
  Open strFile For Output As fileFile
    Write #fileFile, strString
  Close fileFile
  Dim intReturn
  On Error Resume Next
  intReturn = Shell("c:\apps\utility\textpad\txtpad16.exe " & strFile, 1)
  On Error GoTo 0
End Sub

void OpenURL(void) 
{
(32 >= (int)ShellExecute(NULL, "open", "http://www.socketware.net", NULL, NULL, SW_SHOWNORMAL));
}
// Very Simple : I can't think of anything usefull to post right now.