split

[Joel Allen]

Hello,

I get this error "Expected end of statement" on this line:

Dim v as Variant

Here are my global variables:

Option Explicit
Dim m_blnWeOpenedWord
Dim m_blnWordPrintBackground
Const wdDoNotSaveChanges = 0
Dim ins
Dim pgs
Dim pg
Dim ctls
Dim ctl
Dim JobNameNumber
Dim v as Variant
Dim FirstNamee
Dim LastNamee

And here is where I am running the code:

v=Split("John Smith", " ")
FirstNamee=v(0)
LastNamee=v(1)

Item.UserProperties("ContactName").Value = FirstNamee

Thanks for your help,
Joel