VBS create csv from sql result set via Systematica Modullar

Function CreateCSV(InputMessageName,OutputMessageName,Delimiter)
   Set sb = Application.CreateStringBuilder
   
   If IsNull(Delimiter) OR IsEmpty(Delimiter) Then
      Delimiter = ";"
   End If
   
   If IsNull(OutputMessageName) OR IsEmpty(OutputMessageName) Then
      OutputMessageName = "CSV"
   End If
   
   Process.AddMessage OutputMessageName, Application.CreateMessage()
     
   If Process.Message(InputMessageName).MessageCount > 0 Then
         for i = 0 to Process.Message(InputMessageName).Message(0).FieldCount - 1
            sb.Append CStr(IfNull(Process.Message(InputMessageName).Message(0).Field(i).Name,""))
            If i < Process.Message(InputMessageName).Message(0).FieldCount - 1 Then
               sb.Append CStr(Delimiter)
            End If
         Next
         
         sb.Append(vbCrlf)
         
         for i = 0 to Process.Message(InputMessageName).MessageCount - 1
            for f = 0 to Process.Message(InputMessageName).Message(i).FieldCount - 1
               sb.Append CStr(IfNull(Process.Message(InputMessageName).Message(i).Field(f).Value,""))
               If f < Process.Message(InputMessageName).Message(i).FieldCount - 1 Then
                  sb.Append CStr(Delimiter)
               End If
            Next
            sb.Append(vbCrlf)
         Next
         Process.GetMessage(OutputMessageName).AddField "Results", sb.ToString()
         Process.GetMessage(OutputMessageName).AddField "ErrorCode", 0
   Else
         Process.GetMessage(OutputMessageName).AddField "ErrorCode", -1
   End If
End Function