I'm using VB5 witch I don't think supports the
Replace funtion. That's the only reason I can see
I'm getting this error.
Does anyone know a fix, workaround, or a referance
I can load to make this work.

It's giving me a "Variable Not Defined" error, and
highlights Replace.

Code:
' Get section table names
If lDataDirEntryCount > 0 Then
   sText = sText & vbCrLf & "SECTION NAMES:"
   For j = 1 To lDataDirEntryCount
      ' Be careful here is 8-character names are NOT null terminated!
      ' Thus, we use an 8-byte buffer
      For i = 1 To 8
         Get #fr, lSectionTableOffset + i + (j - 1) * 40, bSectionName(i)
      Next
      sSectionName = StrConv(bSectionName, vbUnicode)
      sSectionName = Trim(Replace(sSectionName, Chr(0), " "))
      If sSectionName <> "" Then
         sText = sText & vbCrLf & "   " & sSectionName
      End If
   
   Next

End If