Ответ а. єто докладно если .сто процентов
X[ i ]<>R по выходу из while как раз i - и будет индекс элемента массива, равного R
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