need help with strings

[Smirre]

Dont know if this is what you want...

Dim strTest as String

strTest = "bla bla....."
If len(strTest) > 35 Then
strTest = Mid(strTest, 1, inStr(1,strTest, " "))
End if

/Smirre