Private Sub UserForm_Initialize()
    Dim intI As Integer
    Dim varArray( 5 ,  2 ) As Variant
    
    ListBox1.ColumnCount =  3 
    
    For intI =  0  To  5 
        varArray(intI,  0 ) = intI
        varArray(intI,  1 ) = Int(( 10  * Rnd) +  1 )
        varArray(intI,  2 ) = Int(( 10  * Rnd) +  1 )
    Next intI

    ListBox1.List() = varArray
End Sub

Private Sub ListBox1_Change()
    ' Считываем данные из трех столбцов.
    
    Dim strTemp As String
       
    With ListBox1
        strTemp = "Значение первого столбца: " & _
          .List(.ListIndex,  0 ) & vbNewLine & _
          "Значение второго столбца: " & _
          .List(.ListIndex,  1 ) & vbNewLine & _
          "Значение третьего столбца: " & _
          .List(.ListIndex,  2 )
    End With
    
    MsgBox strTemp
End Sub

Private Sub CommandButton1_Click()
    ' Меняем значение в первой строке третьего столбца.
    
    ListBox1.List( 0 ,  2 ) = "Новое значение"
End Sub