Private Sub Command1_Click()
Dim Wellenlänge As Currency
Dim Antennenlänge As Currency
Dim Frequenz As Currency
Dim Auswahl As String
 
 
Frame1.Visible = True
Auswahl = cboAuswahl.Text
 
lblAusgabe.Visible = True
Label3.Visible = True
 
 
Frequenz = CCur(txtWL.Text)
'Text in Currency umwandeln 
 
 
Wellenlänge = 299.79 / Frequenz
 
lblAusgabe.Caption = Wellenlänge & " Meter"
lblAusgabe.Caption = FormatNumber(Wellenlänge, 2)
 
Antennenlänge = Wellenlänge / Auswahl

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)