Ese es el error mas común que se comete cuendo se empieza...
Como lo tienes, siempre te mostrará en el text el valor asignado al ultimo check seleccionado...
Esta sería la forma correcta ¡concatendo! si no sabes que es concatenar --> google
Código
Private Sub Command1_Click() Text5.Text = "" If tenis.Value = 1 Then Text5.Text = "Tenis" End If If bailar.Value = 1 Then Text5.Text = Text5 & " Bailar" End If If cantar.Value = 1 Then Text5.Text = Text5 & " canta" End If If corre.Value = 1 Then Text5.Text = Text5 & " Corre" End If End Sub