It was the, 'not like', bit that was foxing me but MS Access Rookie put me on the right lines thank you. THe following is what I ended up with.
Option Compare Database
Dim LongString, String1, String2, String3 As String
Public Sub testlike()
LongString = "This message is ok!"
String1 =...