2 verschiedene auswahlen und mit OK bestätigen?

[Poeli]

Hallo,
ich habe mir ein fesnter gemacht
Private Sub Check2_Click()

End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub ja_Click()

x = "Sehr Schlecht"

End Sub

Private Sub nein_Click()

y = "Gut"

End Sub

Private Sub OK_Click()

MsgBox (x)

End Sub


nun will ich das es erst gut oder schlecht sagt wen ich mit OK bestätigt habe nicht gleich sobald ich die auswahl ankilcke schon die meldung kommt

[Eckard41]

Versuchs mal so:

Public x As String

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub ja_Click()
x = "Sehr Schlecht"
End Sub

Private Sub nein_Click()
x = "Gut"
End Sub

Private Sub OK_Click()
MsgBox x
End Sub