取り急ぎなのですが、monthProgramiというシートのオブジェクトにある、B列2行目から値がある場合、sという文字列オブジェクトに値を加えようとするループです。
VBAは久しぶりすぎて、戸惑ってます。
::::::::::::::::::::::::::
monthProgramiというシートオブジェクト
B列
（B1）週間テーマ
（B2）読む・書く
（B3）対人関係
（B4）家事
（B5）#N/A
::::::::::::::::::::::::::
VBAを実行すると
「読む・書く,対人関係,家事」
と出力されればOKです。
::::::::::::::::::::::::::
こう書いてみましたが、、どこが悪いでしょうか？

Sub プログラム結合版()
Dim i As Long
Dim s As String
i = 2
Do While Cells(i, 2) <> "" _
s += monthProgram.Cells(i,2).Value _
s += "," _
i += 1
Loop
Debug.Print (s)
End Sub