'Laufwerk1 überprüfen ob genug Restspeicher START
        'vorher in eine Zahl konvertieren. START
        Dim x As Double
        x = CDbl(lbGB1)
        Dim y As Double
        y = CDbl(tbMBrest1)
        'vorher in eine Zahl konvertieren. ENDE
            lbAlert1.Visible = False 'ausblenden, falls es mal eingeblendet war
            If x < y Then
            lbAlert1.Visible = True
            lbAlert1.Caption = "" & Date & "/" & Time
                If Option2.Value = True Then
                MsgBox "Bei Laufwerkt1 ist der Restspeicher kleiner als" & _
                  "eingegebener Wert.", vbCritical, "DS Info"
                End If
                If Option1.Value = True Then
                Dim i As Variant
                For i = i To 20
                piep.LautAn1
                Next i
                End If
        End If
        'Laufwerk1 überprüfen ob genug Restspeicher ENDE