動的配列の数はUBound関数で分かるのでFor i = 0 To UBound(strBuff) If i = UBound(strBuff) Then Write #1, strBuff(i) Else Write #1, strBuff(i); End IfNext i