Private Sub Constant_demo_Click()
  &ampapos Join using spaces
  a = array(&quotRed&quot,&quotBlue&quot,&quotYellow&quot)
  b = join(a)
  msgbox(&quotThe value of b &quot &amp &quot is :&quot  &amp b)
  &ampapos Join using $
  b = join(a,&quot$&quot)
  msgbox(&quotThe Join result after using delimiter is : &quot &amp b)
End Sub

The value of b is :Red Blue Yellow
The Join result after using delimiter is : Red$Blue$Yellow