VBA代码修改标点符号

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
Dim ends As Integer
Dim str As String
ends = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
cols = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
For n = 1 To ends
str = ""
For i = 3 To cols Step 2
If Trim(Cells(n, i).Offset(0, 1)) <> "" Then
str = str & "," & Cells(n, i) & "," & Trim(Cells(n, i).Offset(0, 1))
End If
Next
If str <> "" Then
str = Cells(n, 1) & ":开始分拣," & "（" & Cells(n, 2) & "）" & str & ",分拣结束."
End If
Sheet2.Cells(n, 1) = str
这个代码的用途是把excel表转换成文本样式的文字，现在问题是如何修改代码中的标点符号，数据后面的逗号位置，全部修改为分号。原样：（乳胶洗涤手套:开始分拣,（包）,4号库位五角场,1,7号库位人民广场店,1,9号库位青浦店,1,11号库位漫湘常熟店,2,分拣结束.） 修改为：（乳胶洗涤手套:开始分拣；（包）,4号库位五角场,1；7号库位人民广场店,1；9号库位青浦店,1；11号库位漫湘常熟店,2；分拣结束. 也就是说，所有的数字后面都跟分号、 修改下代码。谢谢

str = str & "," & Cells(n, i) & "," & Trim(Cells(n, i).Offset(0, 1))

这一行修改成
str = str & ";" & Cells(n, i) & ";" & Trim(Cells(n, i).Offset(0, 1))