Option Explicit
Private Sub Command1_Click()
 
Dim o As Long
Dim z As Long
Dim t As Long
Dim a As Long
Dim prim As Boolean
Dim zahlen As Integer
Dim zahlenjetzt As Integer
Dim prozent As Integer
 
o = txtoben.Text
z = txtunten.Text
prozent = 0
'Anzahl der zu prüfenden Zahlen und aktuell geprüfte Zahl
zahlen = o - z + 1
zahlenjetzt = 0
 
txtaus.Text = ""
a = 0
 
If txtunten.Text = 1 Then
txtmessage.Text = "1 darf nicht eingegeben werden!"
Exit Sub
End If
 
Do
    t = z - 1
    prim = True
    Do
        If z Mod t = 0 Then prim = False
        t = t - 1
        Loop Until t < 2
    If prim = True Then
    txtaus.Text = txtaus.Text & z & vbCrLf
    a = a + 1
    End If
 
    z = z + 1
    'Zähler aktuelle Zahl
    zahlenjetzt = zahlenjetzt + 1
    'aktuelle Prozentzahl
    prozent = Round((zahlenjetzt / zahlen) * 100, 0)
    'Zeichnungsrechteck (Prozentbalken) verbreitern und Prozentwert anzeigen
    shapefront.Width = Round(7395 * 0.01 * prozent, 0)
    lblprozent.Caption = CStr(prozent) & " %"
Loop Until z = o + 1
txtanzahl.Text = a
End Sub