VBA First Line of String

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