Заголовок
VB6, Visual Basic 6, Длина строки, перебор строки, количество символов в строке, номер символа в строке, строка-массив, вырезать подстроку, подстрока, операции со строками, строковые операции
For i = 1 To Len("Текст")
      If IsNumeric(Mid("Текст", i, 1)) = False Then
           MsgBox "В строке есть не числа"
           Exit Sub
      End If
Next i