Function MakeValidFilename(vString As String) As String
  Dim strChar As String
  Dim IllegalChars(14) As String
  IllegalChars = New String() {"\","/",":","*","""","<",">","|","$", " ", "%", "(", ")", "-"}
  For Each strChar In IllegalChars
    vString = Replace(vString, strChar, "_")
  Next
  MakeValidFilename = vString
End Function

Public Interface I<%= MakeValidFilename(objTable.Name) %>

Public Interface IOrder_Details