Visual Basic - Mostrar datos de ListBox

Private Sub Form_Load()

    Me.List1.AddItem "Cazuela" & vbTab & "$2000.00"

    Me.List1.AddItem "Arroz " & vbTab & "$3000.00"

    Me.List1.AddItem "sancocho" & vbTab & "$550.00"

    Me.List1.AddItem "Encebollado" & vbTab & "$2500.00"

    Me.List1.AddItem "Guatita" & vbTab & "$3000.00"

End Sub

Private Sub List1_Click()

x = InStr(List1.List(List1.ListIndex), vbTab)

Text1.Text = Mid(List1.List(List1.ListIndex), 1, x - 1)

Text2.Text = Mid(List1.List(List1.ListIndex), x + 1, Len(List1.List(List1.ListIndex)) - x)

End Sub

Private Sub List1_ItemCheck(Item As Integer)

    MsgBox List1.ItemData

End Sub