Задача в VBA
Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (точка).

Sub str_4()On Error GoTo HandlerDim S As StringDim N As IntegerS = InputBox("Stroka?")N = InputBox("Chislo?")If Len(S) > N Then S = Right(S, N)While Len(S) < NS = "." + SWendMsgBox (S)EndHandler:MsgBox "Oshibka!"End Sub

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, vbInformationEnd Sub