[AccessD] Trouble using Split command

This is how I use it:

'Opening ARgs = "ReturnForm|ReturnField"
Dim arrX As Variant

If Nz(Me.OpenArgs, "") <> "" Then
    arrX = Split(Me.OpenArgs, "|")
    strReturnForm = arrX(0)
    strReturnField = arrX(1)
End If

On Fri, Apr 22, 2011 at 8:48 AM, Kaup, Chester <
Chester_Kaup at kindermorgan.com> wrote:

> My understanding is that the result of the split statement is a one
> dimensional array. Thus the Dim test() as Variant
> The Test = Split(LineText)(0) statement is meant to put the contents of the
> first array element into the variable Test.
> Correct me if I am wrong.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:
> accessd-bounces at databaseadvisors.com] On Behalf Of philippe pons
> Sent: Friday, April 22, 2011 10:05 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Trouble using Split command
>
> Better!
>
> Public Sub test()
>    'I have a dim statements as follows
>    Dim LineText As String
>    Dim test As Variant ' no parenthesis for the name of the variable
>    LineText = "                                0.000
> 243.729             -       61.495              -"
>    'The split statement should be as follows
>    test = Split(LineText, "0") ' the split separator must be within the ()
> of the split function
> End Sub
> Philippe
> 2011/4/22 philippe pons <phpons at gmail.com>
>
> > Dim Test() As Variant
> >
> > Philippe
> >
> > 2011/4/22 Kaup, Chester <Chester_Kaup at kindermorgan.com>
> >
> > I am trying to use the split command on the following string
> >>
> >> "                                0.000            243.729             -
> >>     61.495              -"
> >>
> >> I have a dim statements as follows
> >> Dim LineText As String
> >> Dim Test() As String
> >>
> >> The split statement is as follows
> >> Test = Split(LineText)(0)
> >>
> >> No matter how I dim Test() I get an error message of
> >> Run Time Error 13
> >> Type Mismatch
> >>
> >> This seems like it should be real simple but I am obviously missing
> >> something.
> >>
> >> Thanks.
> >>
> >>
> >>
> >>
> >> Chester Kaup
> >> Engineering Technician
> >> Kinder Morgan CO2 Company, LLP
> >> Office (432) 688-3797
> >> FAX (432) 688-3799
> >>
> >>
> >> No trees were killed in the sending of this message. However a large
> >> number of electrons were terribly inconvenienced.
> >>
> >>
> >> --
> >> AccessD mailing list
> >> AccessD at databaseadvisors.com
> >> http://databaseadvisors.com/mailman/listinfo/accessd
> >> Website: http://www.databaseadvisors.com
> >>
> >
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>