am totally new to VB and i have just started to learn it. I am stuck
at the very basics so i would really appreciate any help.
What i need to do is transfer the information from an Excel file to a
SQL server table via a DTS package by copying columns. During the
transfer i need to perform some data transformation. One of these
consists in creating an ActiveX Script to check one of the Excel file
columns which contains strings in the form LI,LO and trim the L to
transfer just the I's and O's in one of the table columns. The code i
have so far is:

' Copy each source column to the destination column
Function Main()


Dim MyString


If InStr (MyString, "L") <> 0 Then


Right$(MyString,1)
End If
DTSDestination("PTYPE") = DTSSource("Col004")
Main = DTSTransformStat_OK
End Function


However it is prompting for an error.Does anyone have any idea
why?Thank you very much for your time!

Hello B.,

this is VB script use function 'Right' not 'Right$'

Bye