ник: Hall9000
Re: хотя лучше длинну определить один раз.... Да, еще забыл малось...
Строка в исходном виде: nmtex28e50r125885
Модифицировав код, получилось:
Dim strRez As String
Dim i As Integer
dim intL as Integer
intL = Len(strSource)
For i = 1 To intL
strRez = strRez & Ucase(Mid(strSource, i, 1)) & " "
Next
InsertSpace = Trim(strRez)
на выходе получилось то, что надо: N M T E X 2 8 E 5 0 R 1 2 5 8 8 5
Спасибо.