[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
>>
>
>