première ligne de chaîne VBA

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