Trimは両端のスペースを取り除くだけなので、真ん中のスペースも除去するなら、Replaceを使う必要があります。
書式は、
String型変数.Replace(置換前, 置換後)
です。
今回のようなケースだと
cell(3).ToString().Replace(" ", string.Empty)
で、スペースが除去できます。これをAssignや書き込む値として使ってみてください。
削除対象が改行文字やタブも、であればReplaceメソッドを繋げて、
cell(3).ToString().Replace(" ", string.Empty).Replace(vbTab, string.Empty).Replace(vbLf, string.Empty).Replace(vbCr, string.Empty).Replace(" ", string.Empty)
みたいな書き方も可能です。