Извлечение нужного символа из строки - VB (62540)

Формулировка задачи:

Подскажите, пожалуйста, как можно из строки вида "354327U698494" извлечь символ, находящийся в середине, т.е. "U". Количество цифр до символа и после него заранее не известно, да и сам символ точно не известен. Знаем только, что в этой строке он один, латинского алфавита, верхний регистр. Конечно, можно пустить цикл по строке и проверять каждый символ, но может есть какое-то более красивое решение? Например, чтобы ограничиться использованием только стандартных функций. Всем заранее спасибо!

Я пока смогла придумать такой вариант:

Dim MyStr As String
 
MyStr="1234U5678"
MyStr=Mid(MyStr, Len(CStr(Val(MyStr))) + 1, 1)

Но может у кого появилась получше идея?

Решение задачи: «Извлечение нужного символа из строки»

textual
                            Листинг программы 
                        

                            Dim MyStr As String
Dim Pos As Long
 
Dim Index1 As String
Dim Status As String
Dim Index2 As String
 
MyStr = "12345678901234U1235"
 
Pos = 1
 
Do
    If Not IsNumeric(Mid$(MyStr, Pos, 1)) Then
        Index1 = Mid$(MyStr, 1, Pos - 1)
        Status = Mid$(MyStr, Pos, 1)
        Index2 = Mid$(MyStr, Pos + 1)
        Exit Do
    End If
    Pos = Pos + 1
Loop
 
MsgBox "Массив 1: " & Index1 & vbCrLf & "Состояние: " & Status & vbCrLf & "Массив 2: " & Index2
                        