list1中的各个字符前加指定字符输出到list2中

list1中的各个字符前加指定字符输出到list2中如图所示，请指点

[解决办法]
Private Sub Command1_Click()
Dim i As Integer
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem Text1 & "=" & Left(List1.List(i), 1) & "," & _
Text2 & "=" & Mid(List1.List(i), 2, 1) & "," & _
Text3 & "=" & Mid(List1.List(i), 3, 1)
Next i
End Sub