Составление таблицы

Мне дали задание составить таблицу, которая содержит N колонок на ширине L условных единиц.
Я написал программу, но где-то ошибка, особенно со string'ом.
Исправьте, пожалуйста.

Option Explicit
Dim n, k, l, m, stroki As Single
Dim d, a As String

Sub tablica()
stroki = InputBox("введите число строк")
n = InputBox("введите число колонок")
l = InputBox("введите ширину колонок")
a = InputBox("таблица с рамкой?")
k = l / n
If a = "да" Then
k = n + 1
Else
If a = "нет" Then
k = n - 1
Else
MsgBox ("перезапустите программу, так как вы некорректно ответили на вопрос")
End If
End If
String(" ", k)
For i = 1 To stroki
String(l, 1) & Chr(13) здесь ошибка

If a = "нет" Then
String("-", k * l) здесь ошибка
Next
If a = "да" Then
For i = 1 To stroki
Chr (13) & String("l", 1) здесь ошибка
Next
String("_", n * l) здесь ошибка
String("_", n * l) здесь ошибка
End If
End Sub