vaspread cell에 멀티라인 적용하기

Private Sub Command1_Click()
    Dim iRow, iCol As Long
    
    
    With vaSpread1
    
            iRow = 1: .row = iRow
    
            iCol = 1: .col = iCol: .Text = "테스트11"
            iCol = 2: .col = iCol: .Text = "테스트12"
            iCol = 3: .col = iCol: .Text = "테스트13"
           
    
            iRow = 2: .row = iRow
            iCol = 1: .col = iCol: .Text = "테스트" & vbCrLf & "21"
    
            .CellType = CellTypeEdit: .TypeEditMultiLine = True '멀티라인 적용
            .RowHeight(iRow) = .RowHeight(1) * 2 '1번 행의 높이의 2배를 적용
    
            iCol = 2: .col = iCol: .Text = "테스트22"
    
            iCol = 3: .col = iCol: .Text = "테스트23"
    
    End With
    

End Sub