If ComboBox1.SelectedItem = "Passer" Then 
            Button2.Text = "MDJV4" 
            Button3.Text = "XHPKD" 
            Button4.Text = "DY22X" 
            Button5.Text = "G29H4" 
            Button6.Text = "8282G" 
        End If

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click 
 
        If Button2.Text = "" Then 
 
            MsgBox("       Wähle ein Programm aus      ") 
            On Error Resume Next 
        End If 
 
        Clipboard.Clear() 
        Clipboard.SetText(Button2.Text) 
    End Sub