¿Cómo extraer números de un texto usando VB?

Cómo usar VB para extraer números de un fragmento de texto Primero, debe recorrer las palabras del texto una por una para determinar si son números y luego devolver el resultado deseado. El código es el siguiente:

Private Sub Command1_Click()

Dim a As String

a = "Te amo 1314, ¿y tú?"

For i = 1 To Len(a) 'Recorre el juicio sobre cada palabra en el texto

b = Mid(a, i. 1)