Transferindo texto

Aqui transfere do de um list1 para o list2:

Private Sub Command1_Click()
Dim i As Integer, qtasstr As Integer
Dim item As String, itensnum As String
Dim strarray
Dim value As Long
value = -1
With List1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            item = .List(i)
            List2.AddItem item
            If itensnum = "" Then
                itensnum = i
            Else
                itensnum = itensnum & ";" & i
            End If
        End If
    Next
    strarray = Split(itensnum, ";")
    qtasstr = UBound(strarray)
    i = qtasstr
    While Not i < 0
        .RemoveItem (strarray(i))
        i = i - 1
    Wend
End With
End Sub

Aqui transfere do list2 para o list1. Quero adaptar transferindo de um textbox para o list1. Seria tipo desfazer.

Private Sub Command2_Click()
Dim i As Integer, qtasstr As Integer
Dim item As String, itensnum As String
Dim strarray
Dim value As Long
value = -1
With List2
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            item = .List(i)
            List1.AddItem item
            If itensnum = "" Then
                itensnum = i
            Else
                itensnum = itensnum & ";" & i
            End If
        End If
    Next

    strarray = Split(itensnum, ";")
    qtasstr = UBound(strarray)
    i = qtasstr
    While Not i < 0
        .RemoveItem (strarray(i))
        i = i - 1
    Wend
End With
End Sub