Function printOut(strText,intHowLong)
Dim intLength
Dim whatChar
Dim checkChar


'längden på strängen som skickas in
intLength = Len(strText)

'Kolla om intHowlong är större än 1 och mindre än längden på strängen.
If intHowLong > 0 AND intHowLong < intLength Then
'kolla om strängen innehåller något mellanslag.
If instr(strText," ") Then
'vi går in i strängen på den position som är vald , intHowLong, och undersöker vilket tecken som är det
'Är det ett mellanslag så behöver vi ju inte göra något.
whatChar= mid(strText,intHowLong,1)
If whatChar = " " Then
printOut = left(strText,intHowlong)
Else
'Tecknet på vald position är inte ett mellanslag vilket innebär att om vi skulle köra en len() på
'strängen så skulle ett ord klippas av.
'Vi kommer nu att gå in i strängen vid vald position och gå framåt tills att vi hittar nästa
'mellanslag.
'Vill du inte gå framåt utan bakåt så använd denna kod:
'For i = intHowLong To 0 step -1

For i = intHowLong To intLength
checkChar = mid(strText,i,1)
'kolla om checkChar är ett mellanslag. Är det det så skriver vi antalet positioner med len
'och lämnar For slingan
If checkChar = " " Then
printOut = left(strText,i)
Exit for
End if
Next
End if
Else
'strängen har inget mellanslag så vi måste köra en vanligt len(strStrang,15) eller något
printOut = left(strText,intHowlong)

End if
Else
'intHowLong är mindre än 1 så vi skriver ut hela strängen
printOut = strText
End if

End Function