Private Function Windchill(T As Double, v As Double) As Double
    ' Offizielle Windchill-Formel (°C, km/h)
    Windchill = 13.12 _
                + 0.6215 * T _
                - 11.37 * (v ^ 0.16) _
                + 0.3965 * T * (v ^ 0.16)
End Function

Private Sub cmdBerechnen_Click()
    Dim temperatur As Double
    Dim wind As Double
    Dim gefuehlt As Double
 
    ' Eingaben prüfen
    If Not IsNumeric(txtTemp.Text) Or Not IsNumeric(txtWind.Text) Then
        MsgBox "Bitte gültige Zahlen eingeben.", vbExclamation, "Eingabefehler"
        Exit Sub
    End If
 
    temperatur = CDbl(txtTemp.Text)
    wind = CDbl(txtWind.Text)
 
    If wind < 0 Then
        MsgBox "Die Windgeschwindigkeit darf nicht negativ sein.", _
               vbExclamation, "Eingabefehler"
        Exit Sub
    End If
 
    ' Windchill berechnen
    gefuehlt = Windchill(temperatur, wind)
 
    ' Ausgabe
    MsgBox "Lufttemperatur: " & temperatur & " °C" & vbCrLf & _
           "Windgeschwindigkeit: " & wind & " km/h" & vbCrLf & _
           vbCrLf & _
           "Gefühlte Temperatur: " & Format(gefuehlt, "0.0") & " °C", _
           vbInformation, "Ergebnis"
End Sub