Private Sub berechnen_statio_Click()
    Dim flak As String
    If berechnen_statio = True Then
    flak = GetIniValue("Verteidigung", "flak", ".\wargamer.ini")
    kosten_statio.Text = a * flak
end if

Private Sub berechnen_land_rot_Click()
    Dim jeep_r As String
    If berechnen_land_rot = True Then
    jeep_r = GetIniValue("Fahrzeuge_rot", "kuebel", ".\wargamer.ini")
    kosten_fahrzeuge_r.Text = l * jeep_r
 end of