Anyone know what is wrong with this scrpt.

[Gogs]

Anyone spot what is wring with this script?

Sub Main
dim A
Dim  B
dim C
A="Landy has moved to $$DSR:1083:"
C = Len(A)
B = (left(A,C-31))
hs.speak B
 End Sub

thanks

[jon00]

You cannot use replacement variables directly in scripts.

This should work:

    Sub Main()
        Dim A
        Dim B
        Dim C
        A = "Landy has moved to " & hs.ReplaceVariables("$$DSR:1083:")
        C = Len(A)
        B = (Microsoft.VisualBasic.Left(A, C - 31))
        hs.speak(B)
    End Sub 

[Gogs]

You cannot use replacement variables directly in scripts.

This should work:

    Sub Main()
        Dim A
        Dim B
        Dim C
        A = "Landy has moved to " & hs.ReplaceVariables("$$DSR:1083:")
        C = Len(A)
        B = (Microsoft.VisualBasic.Left(A, C - 31))
        hs.speak(B)
    End Sub 

Thanks Jon,

another thing gone from HS2, unfortunately your suggestion errors,

Running script, script run or compile error in file: C:/Program Files/HomeSeer HS3/scripts/Landy moved.txt424:Object required: 'Microsoft' in line 7 More info: Object required: 'Microsoft'

[jon00]

Sorry I forgot to remove that bit as you are running this in VBScript:

B = (Microsoft.VisualBasic.Left(A, C - 31))

becomes

B = (Left(A, C - 31))

[Gogs]

Thanks Jon, works perfectly, lots of script editing to do now.

Appreciate your help.