On Error GoTo Fehler
Byterate = 1557 ' für DSL 16000
 
Downloadgroesse_in_KB = Text1.Text
If chkInMBAngegeben.Value Then Downloadgroesse_in_KB = 
 
Downloadgroesse_in_KB * 1024
Download_Sekunden = Downloadgroesse_in_KB / Byterate
Stunden = Download_Sekunden \ 3600
Download_Sekunden = Download_Sekunden Mod 3600
Minuten = Download_Sekunden \ 60
Download_Sekunden = Download_Sekunden Mod 60
Sekunden = Download_Sekunden
 
 
'beim start ist Megabyte aktiv
If chkInMBAngegeben.Value = 1 Then Label1.Caption = "MegaByte"
If chkInMBAngegeben.Value = 0 Then Label1.Caption = "KiloByte"
Exit Sub
Fehler:
Dim Msg As String
'Resume Next