Does not work for single item

What is wrong with my code below? It works for more than 2 values for the keyword (jnotify) but not if it is a single value or item.

Dim jrecipients(1 To 30) As String

Dim jnotify As Variant

Dim j As Integer

jnotify=GetKeywordValue("Promo Plan Completed Notification")

j=1

Forall x In jnotify

	jrecipients(j)=x

	j=j+1

End Forall



Call SendEmail(doc, jnotify, "(FYI)Completed",  "Plan has been marked completed.")

Subject: does not work for single item

Think the call to sendemail sb

Call SendEmail(doc, jrecipients, “(FYI)Completed”, “Plan has been marked completed.”)