Private Sub Option1_Click()
 
    Liste.Clear
    Liste.AddItem "Hans"
    Liste.AddItem "Peter"
    Liste.AddItem "Paul"
    Liste.Text = Liste.List(0)
 
End Sub
 
Private Sub Option2_Click()
 
    Liste.Clear
    Liste.AddItem "Nina"
    Liste.AddItem "Nadine"
    Liste.AddItem "Nikole"
    Liste.Text = Liste.List(0)
 
End Sub
 
Private Sub Liste_Click()
 Dim Wahl
 Wahl = Liste.Text
 
Select Case Wahl
    Case "Hans"
     TelNr.Text = "11111"
    Case "Peter"
     TelNr.Text = "22222"
    Case "Paul"
     TelNr.Text = "33333"
    Case "Nina"
     TelNr.Text = "44444"
    Case "Nadine"
     TelNr.Text = "55555"
    Case "Nikole"
     TelNr.Text = "66666"
    Case Else
     TelNr.Text = "????"
End Select
 
End Sub