Get Multi Selection Listbox userform and clear all selection

Private Sub CommandButton1_Click()
Dim i As Long, SelBox As String
Dim final
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            SelBox = SelBox & "," & .List(i)
        End If
    Next i
End With
SelBox = Mid(SelBox, 2)
final = Split(SelBox, ",")
For i = 0 To UBound(final)
    With Sheets("Template")
        .Range("A1") = final(i)
        .PrintOut
    End With
Next
End Sub