【満点差し上げます】[VB.NETで、改行を基準に文字列を切り出すサブルーチンを書いてほしいです]

0個、1個、または複数の改行を含むstring変数の中から、最初の改行までの文字列を取り出して別の変数に格納し、取り出した分を最初の変数から削除し、なおかつ別の変数に"Exist"を格納するサブルーチンを書いていただけますか? また、最初の変数が「空っぽ」になったら、これまた別の変数に"NotExist"を格納してほしいです。

例:
strA = "AAAA[vbCrLf]BBBB[vbCrLf]CCCC"
strB = ""
strC = ""
↓
strA = "BBBB[vbCrLf]CCCC"
strB = "AAAA"
strC = "Exist"

例2:
strA = "BBBB"
strB = ""
strC = ""
↓
strA = ""
strB = "BBBB"
strc = "Exist"

例3:
strA = ""
strB = ""
strC = ""
↓
strA = ""
strB = ""
strC = "NotExist"