Поиск цифр в строке - VBA

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

Добрый день! Имеем строку к примеру 123456 qwer 12 34 Необходимо вытащить только 123456

Sub Main()
        Dim stroka, i, strout
 
        stroka = InputBox("Введите строку")
        strout = ""
        For i = 1 To Len(stroka) Step 1
            If IsNumeric(Mid(stroka, i, 1)) = True And i = Len(stroka) Then
                strout = strout & Mid(stroka, i, 1)
                ' MsgBox(strout)
            ElseIf IsNumeric(Mid(stroka, i, 1)) = True Then
                strout = strout & Mid(stroka, i, 1)
            ElseIf strout <> "" Then
                ' MsgBox(strout)
            End If
        Next i 'Next изменяет i на количество, указанное в Step
        Console.WriteLine(strout)
        Console.ReadKey()
    End Sub

Результат выполнения данного кода, 1234561234, т.е. все цифры, как бы подправить код, что бы только 123456 получить? Спасибо!!

Я возможно не в том разделе создал тему, не судите строго, если что перенесите!

Решение задачи: «Поиск цифр в строке»

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

                            Sub Main()
        Dim stroka, i, strout
 
        stroka = InputBox("Введите строку")
        strout = ""
        For i = 1 To Len(stroka)
            If IsNumeric(Mid(stroka, i, 1)) Then
                strout = strout & Mid(stroka, i, 1)
                ' MsgBox(strout)
            Else
                If i = Len(stroka) Then
                   If strout <> "" Then
                   MsgBox strout
                   Exit For
                   Else
                   MsgBox "В тексте нет цифр"
                   Exit For
                   End If
                Else
                   If strout <> "" Then MsgBox strout: Exit For
                End If
            End If
        Next 
    End Sub
                        