vbscript memvar manipulation.

[jnd001]

Hello,
I am trying to interface serial data logging to msaccess database.
Following macro-module-code works fine.

Function GetCPSData()

Dim ChannelNumber As Variant
Dim MyData As String
ChannelNumber = DDEInitiate("CPSPLUS", "DRIVER")
MyData = DDERequest(ChannelNumber, "COM1_VALUE")
DDETerminate ChannelNumber
If Len(MyData) = 0 Then Exit Function


Dim MyDB, MyTable
'Dim MyDB As Database, MyTable As Recordset
' NOTE!!! For Access Versions earlier than 2000


Set MyDB = CurrentDb()
Set MyTable = MyDB.OpenRecordset("TABLE1")

MyTable.AddNew
MyTable![serialdata] = MyData
MyTable.Update
MyTable.Close

End Function fine.

But I need to use part of mydata string

If I make following change I get fail sql statement error

Function GetCPSData()

Dim ChannelNumber As Variant
Dim MyData As String
Dim X As String
Dim Y As String
ChannelNumber = DDEInitiate("CPSPLUS", "DRIVER")
MyData = DDERequest(ChannelNumber, "COM1_VALUE")
DDETerminate ChannelNumber
If Len(MyData) = 0 Then Exit Function

X = Mid$("MyData", 16, 21)
Y = Mid$("MyData", 22, 25)

Dim MyDB, MyTable
'Dim MyDB As Database, MyTable As Recordset
' NOTE!!! For Access Versions earlier than 2000


Set MyDB = CurrentDb()
Set MyTable = MyDB.OpenRecordset("TABLE1")

MyTable.AddNew
MyTable![serialdata] = MyData
MyTable![x] = x
MyTable![y] = y
MyTable.Update
MyTable.Close

End Function


What is needed?