Dim x As Variant
x = "qq" ' Length of x is 2
LSet x = "abc" ' Assigns leftmost 2 characters
Print x ' Prints "ab"
LSet x = "c"
' Assigns "c" and pads on the right with a space
' because length of x is 2
Print x & "high" ' Prints "c high"
x = "c" ' Ordinary assignment; new length of x is 1
Print x & "high" ' Prints "chigh"