Speed Up ListBox Getting Updated Filled Very Slow

[Tony]

Great works FAST :D

Last question... what do i need to change when working with multitabs and multiple listboxes. I tried to use the code below.

Private Sub CommandButton2_Click()
    Dim var(3 To 8) As String
    Dim j As Long
    Dim x As Long

    If Me.ListBox2.ListIndex = -1 Then
        MsgBox "No Data Selected"
        Exit Sub
    End If

    If Me.TextBox2.Value = "" Then Exit Sub

    Rx2 = Rx2 + Me.ListBox1.ListIndex    'row index
    With Sheets("INPUT BS LISTBOX")
        For j = 3 To 8
             var(j) = Me.Controls("TextBox" & j + 8).Text 'Starts in Textbox 9
    Next j
            .Cells(Rx2, 3).Resize(, 6).Value = var
    End With
    Call UserForm_Initialize
End Sub