Could someone please tell me what I'm missing here.

thanks
Sunit

Public Function ReplaceData(ByVal sNewNode As String, ByVal sNewDrive
As String, ByVal blnReplaceFirstLine As Boolean) As String

    oFso.OpenFile ToWrite
    oFso.WriteString sTemp
    oFso.CloseFile

    ReplaceData = "Replaced all data in " & sFileName & "."
    Exit Function

ErrorHandler:
    Err.Raise Err.Number, MODULE_NAME & ".ReplaceData" &
Err.Description

End Function

'From oFso's Class
Public Sub OpenFile(Optional OpMode As OpenMode = ToRead, _
                    Optional CreateIfNotExist As Boolean = False)

   On Error GoTo ErrorHandler

   If OpMode <> ToRead Then
      BackupFile       'Backup if file is not Opened for Reading
      Set oTxt = oFso.OpenTextFile(sFileName, OpMode,
CreateIfNotExist)
   Else
      fnum = FreeFile()
      Open sFileName For Input As #fnum
      isOpen = True
   End If
   Exit Sub

ErrorHandler:
   If isOpen Then Close #fnum
   If Err.Number <> 0 Then Err.Raise Err.Number, MODULE_NAME &
".OpenFile", Err.Description  'It stops here instead of passing it to
ReplaceData()

End Sub

Private Sub BackupFile()
   Dim sBackupFile, oTrace As New CTracer
   On Error GoTo ErrorHandler

   sBackupFile = sFileName & ".bk"
   oTrace.Enter "Backupfile->" & sBackupFile
   oFso.CopyFile sFileName, sBackupFile

ErrorHandler:
   If Err.Number <> 0 Then Err.Raise Err.Number, MODULE_NAME &
".Backup", Err.Description

End Sub

Try
    oFso.OpenFile ToWrite
Catch MyError as Exception
    'do whatever you want with the error

    'If you want, you can pass the exception up the chain
    Throw New Exception( "This is my message", MyError)
    'Notice that I passed the old exception into the constructor for the new
exception. That way the programmer can see both my message and the original
one.

End Try

--
Jonathan Allen