copying the fixed word from one multiline textbox to different single line textboxes

nepalixoro

below is the screenshot of the output that i want to accomplish.i want to copy the item john in first line of the textbox1 to the textbox2 and so on.where the left hand content of text box like First_Name,second_name,Address and phone remains same whereas the right side content keeps changing.i have tired to create a new function but that is not helping

Private Function GetValue(Val As String) As String
If Split(Val, "=", -1).Count > 1 Then Return Split(Val, "=", -1)(1)
Return ""
End Function
thanks in advance