Jeg er god nok træt, men hvorfor virker det ikke !!!!!!!!!!!!!!!?

Du har byttet om på < og > i din if-sætning.

If tallet < 1 and tallet > len(dummytext)*30 then

skal ændres til

if tallet > 1 and tallet < len(dummytext)*30 then

sov godt :)

Jeg har ikke lige prøvet det, men jeg tænke om der ikke er en fejl her:
If Tallet < 1 And Tallet > Len(dummytext) * 30 Then

Tallet kan vel ikke både være mindre end 1 og største end 16320 (længden af dummytext * 30).

Jeg har lige lavet det lidt om, men det godtager det stadgi ikke:

Private Sub Command1_Click()
tallet = Text1.text
    If tallet <> "" And IsNumeric(tallet) Then
        dummytext = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi."
        fejl = False
        If tallet < 1 Then fejl = True
        If tallet > Len(dummytext) * 30 Then fejl = True
        If Not fejl Then
        'MsgBox Tallet
        realtext = dummytext
        'MsgBox CInt(Tallet / Len(dummytext))
        If tallet < Len(dummytext) Then
        MsgBox "I Loop!"
        gentagelser = CInt(tallet / Len(dummytext))
            Nummer = 0
            Do While Nummer < gentagelser + 1
            realtext = realtext & dummytext
            Nummer = Nummer + 1
            Loop
        End If
        realtext = Left(realtext, tallet)
        Text2.text = realtext
        Else
        MsgBox "Tallet skal være størere end 1 og mindre end " & Len(dummytext) * 30 & "!"
        End If
    Else
    MsgBox "Du skal skrive et gyldigt tal!"
    End If
End Sub

Prøv at sætte cint() rundt om tallet - hvis jeg gør det, så virker det her.
Altså sådan:

        If CInt(tallet) < 1 Then fejl = True
        If CInt(tallet) > Len(dummytext) * 30 Then fejl = True

cint( et tal ) går kun op til en ca. 32000

clng( et tal ) går ret langt op i tal værdierne

skumbag --> Det er selvfølgelig rigtig, men vi skal jo også kun op på 16320 (længden af dummytext * 30).

Jeg kan stadig ikke få det til at virke, så jeg lavede det i ASP, med et lidt bedre resultat! Men tak for indsatsen! :))

Ozz lidt poinz til jer...