Prova ad usare vbCr invece di vbCrLf.