Pues mi amigo, probé tu codigo y hay unos errores de sintaxis, mira como me funciono a mi:
Private Sub Command1_Click()
Dim Respuesta As String
Respuesta = MsgBox(
"¿Seguro que desa añadir el texto a la lista?", 291,
"Pregunta")
If Respuesta = 6 Then
Lista.AddItem Texto.Text
End If
End Sub
Lo que esta en rojo es la correcion.
salu2
