' txtview Textbox = Muliline Is True

Option Explicit
Option Base 1
Dim strCnt(245) As String

Private Sub Form_Load()
    Dim strArray As Variant
    Dim intK As Integer
    intK = 1
    For Each strArray In strCnt
        strArray = intK & ". " + "Init"
        strCnt(intK) = strArray
        txtView = txtView + strCnt(intK) + vbCrLf
        intK = intK + 1
    Next strArray
End Sub

Private Sub cmdOk_Click()
'        cnt(1) = "ああ"
'        cnt(2) = "いい"
'        cnt(3) = "うう"
':
':
'        cnt(101) = "ええ"
'        cnt(102) = "おお"
'
':
':
'        cnt(243) = "かか"
'        cnt(244) = "きき"
'        cnt(245) = "くく"
'        cnt(10) = "ここ"
End Sub