' Create string s$ = "Hello, world" ' String destruction s$ = "" ' String comparison If s$ = "Hello, world" then print "Equal String" ' Copying string a$ = s$ ' Check If empty If s$ = "" then print "String is MT" ' Append a byte s$ = s$ + Chr$(65) ' Extract a substring a$ = Mid$(s$, 1, 5) ' bytes 1 -> 5 'substitute string "world" with "universe" a$ = "Hello, world" for i = 1 to len(a$) if mid$(a$,i,5)="world" then a$=left$(a$,i-1)+"universe"+mid$(a$,i+5) end if next print a$ 'join strings s$ = "See " + "you " + "later." print s$