Dim Code&, i&
 
  For i = 1 To Len(MyString)
    Code = Asc(Mid$(MyString, i, 1))
    If Code < 32 And Code <> 13 Then Mid$(MyString, i, 1) = vbLf
  Next i
  MyString = Replace(MyString, vbLf, "")
  Do While InStr(1, MyString, vbCr & vbCr) > 0
    MyString = Replace(MyString, vbCr & vbCr, vbCr)
  Loop
  Label1.Caption = MyString

Gruss,

Zardoz