split informations on single cell to multiple cells

I have an excel with these information's:

"Please register for me:

NAME: Tan May
PS NUMBER: 6787898
DIETARY PREFERENCE (halal/vegetarian): VEGETARIAN
LOCATION: KEPPEL TUAS (COMMERCIAL)


________________________________


CONFIDENTIALITY: This e-mail (including any attachments) is confidential and may contain proprietary information. If you are not the intended recipient, be advised that you have received this e-mail in error. Any use, disclosure, dissemination, printing or copying of this e-mail is strictly prohibited. If you have received this e-mail in error, please immediately contact the sender by return e-mail and then irretrievably delete it from your system.

"


and I want to extract the date for name, ps number, dietary preference and location to multiple cells.

I tried the "convert text to column wizard" but it only shows this line "Please register for me:"

Sub record()
On Error Resume Next
Dim FLD(10)
Sheets("INPUT").Select
rmax = Range("A" & Rows.Count).End(xlUp).Row
R2 = 1
r = 2

FLD(1) = "NAME: "
FLD(2) = "PS NUMBER: "
FLD(3) = "DIETARY PREFERENCE (halal/vegetarian): "
FLD(4) = "LOCATION: "

While r <= rmax
If Cells(r, 1) <> "" Then

st = Cells(r, 1)

k = 0
j = 0
While j = 0 And k <= 4
 j = 0
 k = k + 1
 j = WorksheetFunction.Find(FLD(k), st)
Wend
If k = 1 Then R2 = R2 + 1

If k < 5 Then
  Sheets("output").Cells(R2, k) = Mid(st, j + Len(FLD(k)), Len(st))
End If
End If

r = r + 1

Wend



End Sub

Thanks everyone for your reply.

However I cant seems to make it work. It basically compose of multiple entries as attached.

for each cell entry I would like to extract information on Name,PS Number,Dietary and Location.

Appreciate your help.

Thank you so much Siva for your help.
I managed to get the info needed but got error as attached.Attachment 362329

i managed to do it.

Thank you Siva for your help.

yes it gives the correct answer when changed to PS Number.
Is there anything on the code that I needs to change to also applies if it is instead - "Employee Number"