Строка таблицы содержащая информацию об одном конкретном объекте это

Sub aaa()
    s = InputBox("Введите строку")
    n = CInt(InputBox("Введите длину N"))
    m = Len(s)
    If m > n Then
        s = Right(s, n)
    Else
        If m < n Then s = String(n - m, ".") + s
    End If
    MsgBox "Результат: " + s, vbInformation
End Sub

ПОПРОБУЙТЕ НАПИСАТЬ РЯДОМ 5 7 9

Матричные, струйные и лазерные.

Times New Roman d))))