#776
CSVファイルに出力するデータを「,」で区切ったり、コンボボックスの値リストを「;」で区切ったり、一連の文字列をループで組み立てていく場合、ループの処理上、最後の値の次（文字列の最後）にも不要な「,」や「;」が付いてしまうことがあります。その最後の「,」や「;」を除去するプログラム例です。
次のプログラム例では、変数「strData1」を各データを「;」で区切って組み立てています。また「strData2」は「,」です。それぞれループで組み立てた変数の末尾にある１文字（ ; や , ）を除去してメッセージボックスに表示しています。
Dim strData1 As String
Dim strData2 As String
Dim iintLoop As Integer
'サンプルデータの文字列を組み立てる
For iintLoop = 1 To 10
strData1 = strData1 & iintLoop & ";"
strData2 = strData2 & Chr(iintLoop + 64) & ","
Next iintLoop
MsgBox strData1 & vbCrLf & vbCrLf & _
strData2, vbOKOnly + vbInformation
'末尾の１文字を除去する
strData1 = Left(strData1, Len(strData1) - 1)
strData2 = Left(strData2, Len(strData2) - 1)
MsgBox strData1 & vbCrLf & vbCrLf & _
strData2, vbOKOnly + vbInformation
実行結果：
