Function ColumnValueStr(e As NotesViewEntry, columnval As Integer, delimstr As String) As String 
 ' returns string value of the column number in the view entry 
 Dim multiarray As Variant    ' tmporary working variable for looping through multivalue column values. 
 Dim tmpstring As String     ' temporary string for buiding print statement 
  
 If Isarray(e.ColumnValues(columnval)) Then 
   ' we need to cycle and print all values 
  multiarray = e.ColumnValues(columnval) 
  Forall colvalue In multiarray 
   tmpstring=tmpstring & Cstr(colvalue) & delimstr
  End Forall 
 Else 
   ' just do a simple line to get 
  tmpstring = tmpstring & Cstr(e.ColumnValues(columnval))  
 End If
ColumnValueStr = tmpstring 
End Function