Option Explicit

Private Sub Command1_Click()
Dim J
Dim i
Dim XL As New Excel.Application
XL.Workbooks.Open App.Path & "\example.xls"
XL.Visible = True
Set XL = XL.ActiveWorkbook.Sheets.Application
'заполняем ячейки листа1 в книге
For i =  1  To  5000 
J = ChrW(i)
XL.Range("A" & i).Select
XL.Range("A" & i).Value = J
Next i
End Sub

Option Explicit
Dim R, C
Private Sub Form_Load()
For R =  1  To  120 
    For C =  1  To  6 
       Load Me.K(R *  100  + C)
       K(R *  100  + C).Left = C *  1000  -  500 
       K(R *  100  + C).Top = R *  300  +  50 
       K(R *  100  + C).Visible = True
               K(R *  100  + C).Text = ChrW( 13000  + R + C)
               If C =  1  Then K(R *  100  + C).Text = R
Next C
Next R
End Sub

Private Sub ВСкролинг1_Change()
For R =  1  To  120 
    For C =  1  To  6 
       K(R *  100  + C).Top = R *  300  - ВСкролинг1.Value
Next C, R
End Sub

Private Sub Комманда1_Click()
Dim F
R = InputBox("Введите номер строки", "", Int( 120  * Rnd +  1 ))
C = InputBox("Введите номер столбца", "", Int( 6  * Rnd +  1 ))
F = InputBox("Введите код символа", "", Int( 10000  * Rnd +  1 ))
       K(R *  100  + C).Text = ChrW(F)
End Sub