LSet и RSet

Sub rset00()
'надо получить текстовик типа
'
'номер;фамилия            ;оклад
'
'можно конечно считать пробелы, а можно
 
Dim znom As String * 5
Dim zfio As String * 30
Dim zoklad As String * 10
Dim xm1, xm2, x1, x2
xm1 = Array("иванов", "петров", "петров-водкин", "михайловский")
xm2 = Array(1000, 200000, 20000000, 500)
x1 = LBound(xm1, 1)
x2 = UBound(xm1, 1)
Do While x1 <= x2
RSet znom = x1 + 1
LSet zfio = xm1(x1)
RSet zoklad = xm2(x1)
x1 = x1 + 1
Debug.Print znom; " "; zfio; zoklad
Loop
 
End Sub

Sub qwe()
 a$ = "1-1"
 LSet a$ = "1234567890"
 Stop
End Sub

Sub qwe2()
Dim a As String * 10
 a = "1-1"
 RSet a = "1-0"
Debug.Print a; "="
LSet a = "1-0"
Debug.Print a; "="
 'Stop
End Sub

Type MyDWordL 'Двойное слово в виде Long значения.
    value As Long 'Значение двойного слова.
End Type
Type MyDWord 'Двойное слово в виде верхней и нижней части.
    lParam(1) As Byte 'Нижняя часть слова.
    wParam(1) As Byte 'Верхняя часть слова.
End Type
'При передаче двойного слова в API функцию иногда бывает необходимо разбить его на две части.
Sub DivideDWordToWords()
    Dim n As MyDWordL, dw As MyDWord
    n.value = 65536 * 7 + 1234 'Задано двойное слово в виде Long значения.
    LSet dw = n 'Разбили слово на верхнюю и нижнюю части.
    Debug.Print dw.wParam(1) * 256 + dw.wParam(0) 'Полученная верхняя часть.
    Debug.Print dw.lParam(1) * 256 + dw.lParam(0) 'Полученная нижняя часть.
End Sub