Find integer from string

Find integer from string

 Dim Res As String
Dim str As String = "Faheem786Ahmad"
        For Each c As Char In str
            If IsNumeric(c) Then
                Res = Res & c
            End If
        Next
        MessageBox.Show(Res)