Textbox opfører sig underligt

Jeg tror du er nød til at lave en orddelingsfunktion, så ordelingen sker på et fornuftigt sted i din tekst

aha, og hvordan gøres det?

Ja det er jo et godt spørgsmål - som ikke sådan lige klares i et snuptag

Det kunne godt lade til at du har nogle linjeskift i din tekst. Prøv at lave en 'Replace(<Din tekst>,chr(13),"")' før du sætte teksten ind, det kan være at det kan løse din problem.

Oswald

Oswald >> Nu er jeg ikke lige helt med. Betyder det at jeg skal indsætte den der code ind i form start afdelingen? (Jeg har ikke lige adgang til min computer lige for tiden, så jeg kan ikke lige teste det) Men det ser ud til at koden kun sender texten ud som en lang smøre, men jeg skal jo stadig have nogle linjeskift enkelte steder i texten!?!

Det er simpelthen fordi du har nogle linieskift aller sidst på en linie! Det er garateret en tekst du har kopieret og sat ind! Så har du sat den ind i din textbox som er lidt smallere end det sted du har kopieret den fra!

HER ER ET EKSEMPEL:
<LS> = Et linie skift som jeg med vilje har lavet da jeg skrev denne tekst i en textbox der var lidt smallere end denne!

Eks:
Dette er for at vis dig et eksempel på en tekst der kan <LS>
opføre sig underligt!

Jeg skriver selve texten ind i textboxen med det samme (og ændrer ikke på størelsen på textboxen), så det kan ikke være der problemet ligger.
Jeg har prøvet det der replace, men det kan jeg ikke lige få til at virke, og det der <LS> kan jeg heller ikke bruge.
Kunne i evt. give et helt exempel (med kode) om hvordan det kunne lade sig gøre?

Det skal måske lige siges at jeg er en newbie til dette

Du kan bruge denne metode til at erstatte linieskiftene!! Kopiér den abre direkte ind i dit projekt! Du bruger den så sådan: fixTxt(Text1)
Text1 skal så erstattes med navnet på din textbox!

Metoden:

Private Sub fixTxt(txt As String)
    Replace(txt, vbNewLine, "")
    Replace(txt, Chr(10), "")
    Replace(txt, Chr(13), "")
End Sub

Ups fejl...
Du skal bruge den sådan hvor Text1 stadig skal erstattes med navnet på din textbox:
Text1 = fixTxt(Text1)


Metoden:

Private Function fixTxt(txt As String) As String
    Replace(txt, vbNewLine, "")
    Replace(txt, Chr(10), "")
    Replace(txt, Chr(13), "")
End Function

Text1 = fixTxt(Text1)
Skal jeg smide den ind under form start, eller hvor?

Men den der replace funktion viser kun rød (altså der er en fejl i linjerne)

Hmmm... det ser ikke ud til at komme noget jeg kan bruge, så jeg lukker spørgsmålet. Men tak for at i forsøgte at hjælpe mig