Primera línea de cuerda de VBA

Dim s As String
s = "aaa" & vbCrLf & "bb bb bbb"
Debug.Print Split(s, Chr(10))(0)        ' aaa
VasteMonde