when I input any character, the syntax error will appear here VB script.
========================================================
Texto=""
Letra1 = Array ("1","2","3","4","5","6","7","8","9","0")
Letra2 = Array ("Q","W","E","R","T","Y","U","I","O","P")
Letra3 = Array ("A","S","D","F","G","H","J","K","L","?) <====less a "??
Letra4 = Array ("Z","X","C","V","B","N","M","+","-"," ")
Letra5 = Array ("q", "w","e","r","t","y","u","i","o","p")
Letra6 = Array ("a","s","d","f","g","h","j","k","l","?) <====less a "??
Letra7 = Array ("z","x","c","v","b","n","m",",",".","?")
Letra8 = Array ("?,"/","\","=","_",":",";","$","&&","(") <====less a "??
Letra9 = Array (")","""","%","*","?,"?,">","<","I") <====I am not too sure...
Total = GetVar(1500) + 1
Call SetVar(1500 + Total, 1)
If Total > 57 Then Total = 57
Call SetVar(1500, Total)
For J = 1 To Total
Clave = GetVar(1500 + J)
Select Case Clave
Case 1,2,3,4,5,6,7,8,9,10
Letra = Letra1(Clave-1)
Case 11,12,13,14,15,16,17,18,19,20
Letra = Letra2(Clave-11)
Case 21,22,23,24,25,26,27,28,29,30
Letra = Letra3(Clave-21)
Case 31,32,33,34,35,36,37,38,39,40
Letra = Letra4(Clave-31)
Case 41,42,43,44,45,46,47,48,49,50
Letra = Letra5(Clave-41)
Case 51,52,53,54,55,56,57,58,59,60
Letra = Letra6(Clave-51)
Case 61,62,63,64,65,66,67,68,69,70
Letra = Letra7(Clave-61)
Case 71,72,73,74,75,76,77,78,79,80
Letra = Letra8(Clave-71)
Case Else
Letra = Letra9(Clave-81)
End Select
Texto = Texto & Letra
Next
Call SetUserLabel(1, Texto)
======================================================
I chaged all correctly, but this error will occur again when I restart mach3 again!