Private Sub bt_calc_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles bt_calc.Click
        '
        Dim wert(11) As Integer
        '
        wert(0) = 0.035     ' oa
        wert(1) = 0.023     ' ua
        wert(2) = 0.008     ' ha
        wert(3) = 0.116     ' os
        wert(4) = 0.053     ' us
        wert(5) = 0.018     ' fu
        wert(6) = 0.035     ' oa
        wert(7) = 0.023     ' ua
        wert(8) = 0.008     ' ha
        wert(9) = 0.116     ' os
        wert(10) = 0.053     ' us
        wert(11) = 0.018     ' fu
        '
        Label5.Text = wert(3)
End Sub

--------------------------------------
Man kann Dreck nicht polieren!
--------------------------------------