LSet Statement

በ ግራ ማሰለፊያ ተለዋዋጭ እንደ ሀረግ = ጽሁፍ ወይንም በ ግራ ማሰለፊያ ተለዋዋጭ1 = ተለዋዋጭ2

Sub ExampleRLSet
Dim sVar As String
Dim sExpr As String
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Align "SBX" within the 40-character reference string
    ' Replace asterisks with spaces
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123457896"
    RSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(40,"*")
    sExpr = "SBX"
    ' Left-align "SBX" within the 40-character reference string
    LSet sVar = sExpr
    Print ">"; sVar; "<"
    sVar = String(5,"*")
    sExpr = "123456789"
    LSet sVar = sExpr
    Print ">"; sVar; "<"
End Sub