HEJ!
Ja, det ser ju rätt ut, två eller tre argument.
Det är bara att lösa felet genom att gräva ner sig i vad de tre olika mid:arna ger.
Någon av de ger fel siffror, dela upp rad 19 i de tre olika delarna, skriv ut texterna.
Frågan#1
Invalid procedure call Mid on line 19 (den feta raden)
strText = Trim(strText) ' Tar bort eventuella mellanslag i början och slutet av texten!
Do Until iPos2 = Len(strText) ' Loopar igenom strängen och letar efter mellanslag
iPos2 = iPos2 + 1 ' Pekaren får gå fram ett steg
iWordLength = iWordLength + 1 ' Ökar på ordlängden
If Mid(strText,iPos2,1) = " " Then
iWordLength = 0
End if
If iWordLength > 60 Then ' Om ett ord är längre än 25 bokstäver.
[b]strText = Mid(strText,1,iPos1-1) & Mid(strText,iPos1,iPos2-iPos1) & " " & Mid(strText,iPos2,Len(strText)-iPos2+1)[/b]
iPos1 = iPos2
iPos2 = iPos2 + 1
iWordLength = 0
End If
Loop